strip off comment, that doesn't get bumped with the real $VERSION

[p5sagit/strictures.git] / t / strictures.t

diff --git a/t/strictures.t b/t/strictures.t
index 4f6b020..58104fa 100644 (file)
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -34,6 +34,10 @@ foreach my $idx (0 .. $#us) {
   is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
 }
 
+my $v;
+eval { $v = strictures->VERSION; 1 } or diag $@;
+is $v, $strictures::VERSION, '->VERSION returns version correctly';
+
 SKIP: {
   skip 'Extra tests disabled on perls <= 5.008003', 1
     if $] < 5.008004;
@@ -57,7 +61,7 @@ SKIP: {
 
 ok(!eval q{use strictures 2; 1; }, "Can't use strictures 2 (this is version 1)");
 
-{
+SKIP: {
   skip 'Extra tests disabled on perls <= 5.008003', 1
     if $] < 5.008004;
   local $ENV{PERL_STRICTURES_EXTRA} = 1;