blob: acf0704580d308a896b171ec67851faf97ec64d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!./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();
|
