diff options
| author | Steffen Müller <0mgwtfbbq@sneakemail.com> | 2002-08-29 21:39:58 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-30 13:16:05 +0000 |
| commit | 66d45871e1487a8e2f3c33194cb92dac6f438ba2 (patch) | |
| tree | 0dfa9796e7df9aa2db84762762e5e13e4a2a08b0 /lib/if.t | |
| parent | 5a8d6028c6d5f13b627f851521248150c0c6f242 (diff) | |
| download | perl-66d45871e1487a8e2f3c33194cb92dac6f438ba2.tar.gz | |
add test related to change #17799:
Subject: Re: if.pm bug.
From: "Steffen Mueller" <kjx9zthh3001@sneakemail.com>
Message-ID: <20020829173358.34731.qmail@onion.perl.org>
p4raw-link: @17799 on //depot/perl: a3e5cfd4c30bff9d1d50fd3f8db258b33693d62c
p4raw-id: //depot/perl@17818
Diffstat (limited to 'lib/if.t')
| -rw-r--r-- | lib/if.t | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -use Test::More tests => 4; +use Test::More tests => 5; my $v_plus = $] + 1; my $v_minus = $] - 1; @@ -24,3 +24,6 @@ ok( (not defined eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12" and $@ =~ /while "strict refs" in use/), '"use if" with a true condition and a pragma'); +ok( eval "use if 1, Cwd; cwd() || 1;", + '"use if" with a true condition, module, no arguments, exports'); + |