test that we can use the exact current strictures version
Graham Knop [Sun, 28 Jun 2015 07:37:41 +0000 (03:37 -0400)]
t/strictures.t

index ad8ec10..98bd177 100644 (file)
@@ -61,3 +61,8 @@ eval qq{ use strictures $next; };
 
 like $@, qr/strictures version $next required/,
   "Can't use strictures $next (this is version $v)";
+
+eval qq{ use strictures $strictures::VERSION; };
+
+is $@, '',
+  "Can use current strictures version";