From: Graham Knop <haarg@haarg.org>
Date: Tue, 3 Nov 2015 23:58:44 +0000 (-0500)
Subject: test version argument
X-Git-Tag: v2.000002~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=717b8bce61b131ff53f4fdfa81a25fa2c6d2286a;p=p5sagit%2Fstrictures.git

test version argument
---

diff --git a/t/strictures.t b/t/strictures.t
index 98bd177..920dc7c 100644
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -62,6 +62,16 @@ 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 $@, '',