[perl5.git] / t / op / cond.t

#!./perl

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

is( 1 ? 1 : 0, 1, 'compile time, true' );
is( 0 ? 0 : 1, 1, 'compile time, false' );

$x = 1;
is(  $x ? 1 : 0, 1, 'run time, true');
is( !$x ? 0 : 1, 1, 'run time, false');

done_testing();
Commit	Line	Data
8d063cd8 LW	1	#!./perl
8d063cd8 LW	2
63811f13 CK	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
	7	}
8d063cd8	8
63811f13 CK	9	is( 1 ? 1 : 0, 1, 'compile time, true' );
63811f13 CK	10	is( 0 ? 0 : 1, 1, 'compile time, false' );
8d063cd8 LW	11
8d063cd8 LW	12	$x = 1;
63811f13 CK	13	is( $x ? 1 : 0, 1, 'run time, true');
	14	is( !$x ? 0 : 1, 1, 'run time, false');
	15
	16	done_testing();