[perl5.git] / lib / if.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 4;

my $v_plus = $] + 1;
my $v_minus = $] - 1;


ok( eval "use if ($v_minus > \$]), strict => 'subs'; \${'f'} = 12" eq 12,
    '"use if" with a false condition, fake pragma');

ok( eval "use if ($v_minus > \$]), strict => 'refs'; \${'f'} = 12" eq 12,
    '"use if" with a false condition and a pragma');

ok( eval "use if ($v_plus > \$]), strict => 'subs'; \${'f'} = 12" eq 12,
    '"use if" with a true condition, fake pragma');

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');
Commit	Line	Data
cd16c24c IZ	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	use Test::More tests => 4;
	9
	10	my $v_plus = $] + 1;
	11	my $v_minus = $] - 1;
	12
	13
	14	ok( eval "use if ($v_minus > \$]), strict => 'subs'; \${'f'} = 12" eq 12,
	15	'"use if" with a false condition, fake pragma');
	16
	17	ok( eval "use if ($v_minus > \$]), strict => 'refs'; \${'f'} = 12" eq 12,
	18	'"use if" with a false condition and a pragma');
	19
	20	ok( eval "use if ($v_plus > \$]), strict => 'subs'; \${'f'} = 12" eq 12,
	21	'"use if" with a true condition, fake pragma');
	22
	23	ok( (not defined eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12"
	24	and $@ =~ /while "strict refs" in use/),
	25	'"use if" with a true condition and a pragma');
	26