X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Fstrictures.git;a=blobdiff_plain;f=t%2Fstrictures.t;h=1cb8e4059d73b85a0a5d40bd5a96d85327541bf8;hp=b721a66cd89129b8ba55791fb82471fbd079fcb3;hb=180697542bde534b53460e128cddb8af1c01736a;hpb=24590d987b3ff66dc1fe70c0d86f6ba4e5e5de21 diff --git a/t/strictures.t b/t/strictures.t index b721a66..1cb8e40 100644 --- a/t/strictures.t +++ b/t/strictures.t @@ -51,4 +51,7 @@ my $v; eval { $v = strictures->VERSION; 1 } or diag $@; is $v, $strictures::VERSION, '->VERSION returns version correctly'; -ok(!eval q{use strictures 3; 1; }, "Can't use strictures 3 (this is version 2)"); +eval q{ use strictures 3; }; + +like $@, qr/strictures version 3 required/, + "Can't use strictures 3 (this is version 2)";