X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstrictures.t;fp=t%2Fstrictures.t;h=9cf35bda356988c3ff6bc1427238bbcd8e03c692;hb=cd7827626c6ee8af1df33c3a2fd92322593e1ff1;hp=cf09a9d6f12b025f8cef66fa9a60498be796e143;hpb=b4f4fcfc38987bc434d6a013de24d13d5c2082cc;p=p5sagit%2Fstrictures.git

diff --git a/t/strictures.t b/t/strictures.t
index cf09a9d..9cf35bd 100644
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -54,7 +54,8 @@ my $v;
 eval { $v = strictures->VERSION; 1 } or diag $@;
 is $v, $strictures::VERSION, '->VERSION returns version correctly';
 
-eval q{ use strictures 3; };
+my $next = int $v + 1;
+eval qq{ use strictures $next; };
 
-like $@, qr/strictures version 3 required/,
-  "Can't use strictures 3 (this is version 2)";
+like $@, qr/strictures version $next required/,
+  "Can't use strictures $next (this is version $v)";