t/lib/fatal.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 print "1..2\n";
   9
  10 sub false { 0; }
  11
  12 sub true  { 1; }
  13
  14 use Fatal qw(true false);
  15
  16 eval {  true(); };
  17
  18 print "not " if $@;
  19 print "ok 1\n";
  20
  21 eval { false(); };
  22 print "not " unless $@;
  23 print "ok 2\n";