Commit | Line | Data |
---|---|---|
fbe2c49e | 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 |