Commit | Line | Data |
---|---|---|
f5a43164 | 1 | BEGIN { |
06254a06 | 2 | unshift @INC, 't/lib/'; |
f5a43164 JH |
3 | } |
4 | ||
1b629f66 | 5 | use Filter::Simple::FilterTest qr/not ok/ => "ok", fail => "ok"; |
dfa18578 | 6 | |
fbe2c49e JH |
7 | print "1..6\n"; |
8 | ||
fbe2c49e JH |
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 | ||
1b629f66 | 20 | no Filter::Simple::FilterTest; |
fbe2c49e JH |
21 | |
22 | print "not " unless "not ok" =~ /^not /; | |
23 | print "ok 6\n"; | |
24 |