better diagnostics on version check failure

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

diff --git a/t/strictures.t b/t/strictures.t
index b721a66..1cb8e40 100644 (file)
--- 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)";