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

#!./perl

BEGIN {
    chdir 't' if -d 't';
    require './test.pl';
    set_up_inc('../lib');
}

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 {
63811f13 CK	4	chdir 't' if -d 't';
63811f13	5	require './test.pl';
624c42e2	6	set_up_inc('../lib');
63811f13	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();