X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstrictures.t;h=58104fa4f1a0e8b25138ab538e96c2048e32d9a2;hb=2b1798e04c7e7da24eb968124d86c1009bfe19d9;hp=877439be7de76911df91ea5717e789f7a8c37be3;hpb=bce2c903818f2aa627532c2d91c644ff4d1afc89;p=p5sagit%2Fstrictures.git

diff --git a/t/strictures.t b/t/strictures.t
index 877439b..58104fa 100644
--- 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;