lib/Filter/Simple/t/filter.t

   1 BEGIN {
   2     chdir('t') if -d 't';
   3     @INC = 'lib';
   4 }
   5
   6 use FilterTest qr/not ok/ => "ok", fail => "ok";
   7 print "1..6\n";
   8
   9 sub fail { print "fail ", $_[0], "\n" }
  10
  11 print "not ok 1\n";
  12 print "fail 2\n";
  13
  14 fail(3);
  15 &fail(4);
  16
  17 print "not " unless "whatnot okapi" eq "whatokapi";
  18 print "ok 5\n";
  19
  20 no FilterTest;
  21
  22 print "not " unless "not ok" =~ /^not /;
  23 print "ok 6\n";
  24