0N/ABEGIN {

0N/A if ($ENV{PERL_CORE}) {

0N/A chdir('t') if -d 't';

0N/A @INC = qw(lib/Filter/Simple ../lib);

0N/A }

0N/A}

0N/A

0N/Ause FilterTest qr/not ok/ => "ok", fail => "ok";

0N/A

0N/Aprint "1..6\n";

0N/A

0N/Asub fail { print "fail ", $_[0], "\n" }

0N/A

0N/Aprint "not ok 1\n";

0N/Aprint "fail 2\n";

0N/A

0N/Afail(3);

0N/A&fail(4);

873N/A

0N/Aprint "not " unless "whatnot okapi" eq "whatokapi";

0N/Aprint "ok 5\n";

0N/A

0N/Ano FilterTest;

0N/A

868N/Aprint "not " unless "not ok" =~ /^not /;

0N/Aprint "ok 6\n";

0N/A

2086N/A