Change 17818 by [EMAIL PROTECTED] on 2002/08/30 13:16:05
add test related to change #17799:
Subject: Re: if.pm bug.
From: "Steffen Mueller" <[EMAIL PROTECTED]>
Date: Thu, 29 Aug 2002 19:39:58 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/if.t#2 edit
Differences ...
==== //depot/perl/lib/if.t#2 (text) ====
Index: perl/lib/if.t
--- perl/lib/if.t#1~14694~ Thu Feb 14 13:54:43 2002
+++ perl/lib/if.t Fri Aug 30 06:16:05 2002
@@ -5,7 +5,7 @@
@INC = '../lib';
}
-use Test::More tests => 4;
+use Test::More tests => 5;
my $v_plus = $] + 1;
my $v_minus = $] - 1;
@@ -23,4 +23,7 @@
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');
End of Patch.
