Move ExtUtils::Install from ext/ to dist/
[perl.git] / ext / 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