https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!./perl | |
| 2 | ||
| 3 | BEGIN { | |
| 4 | chdir 't' if -d 't'; | |
| 5 | require './test.pl'; | |
| 6 | set_up_inc('../lib'); | |
| 7 | } | |
| 8 | ||
| 9 | is( 1 ? 1 : 0, 1, 'compile time, true' ); | |
| 10 | is( 0 ? 0 : 1, 1, 'compile time, false' ); | |
| 11 | ||
| 12 | $x = 1; | |
| 13 | is( $x ? 1 : 0, 1, 'run time, true'); | |
| 14 | is( !$x ? 0 : 1, 1, 'run time, false'); | |
| 15 | ||
| 16 | done_testing(); |