Commit | Line | Data |
---|---|---|
8d063cd8 LW |
1 | #!./perl |
2 | ||
63811f13 CK |
3 | BEGIN { |
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' ); |
10 | is( 0 ? 0 : 1, 1, 'compile time, false' ); | |
8d063cd8 LW |
11 | |
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(); |