sub _eval { eval $_[0] }
+use Test::More 0.88;
+
use strict;
use warnings;
-use Test::More qw(no_plan);
+use Test::More;
sub capture_hints {
my $code = shift;
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";
+
+done_testing;