t/op/cond.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require './test.pl';
   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();