changelog

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

diff --git a/t/strictures.t b/t/strictures.t
index ad8ec10..920dc7c 100644 (file)
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -61,3 +61,18 @@ eval qq{ use strictures $next; };
 
 like $@, qr/strictures version $next required/,
   "Can't use strictures $next (this is version $v)";
+
+eval qq{ use strictures {version => $next}; };
+
+like $@, qr/Major version specified as $next - not supported/,
+  "Can't use strictures version option $next (this is version $v)";
+
+eval qq{ use strictures {version => undef}; };
+
+like $@, qr/Major version specified as undef - not supported/,
+  "Can't use strictures version option undef";
+
+eval qq{ use strictures $strictures::VERSION; };
+
+is $@, '',
+  "Can use current strictures version";