t/lib/filter-simple.t

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