diff options
Diffstat (limited to 'lib/if.t')
-rw-r--r-- | lib/if.t | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -use Test::More tests => 5; +use Test::More tests => 6; my $v_plus = $] + 1; my $v_minus = $] - 1; @@ -27,3 +27,5 @@ ok( (not defined eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12" ok( eval "use if 1, Cwd; cwd() || 1;", '"use if" with a true condition, module, no arguments, exports'); +ok( eval "use if qw/ 1 if 1 strict subs /; \${'f'} = 12" eq 12, + '"use if" with a module named after keyword'); |