dist/Filter-Simple/t/filter.t

   1 BEGIN {
   2     unshift @INC, 't/lib/';
   3 }
   4
   5 use Filter::Simple::FilterTest qr/not ok/ => "ok", fail => "ok";
   6
   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 Filter::Simple::FilterTest;
  21
  22 print "not " unless "not ok" =~ /^not /;
  23 print "ok 6\n";
  24