Commit | Line | Data |
---|---|---|
f5a43164 | 1 | BEGIN { |
06254a06 | 2 | unshift @INC, 't/lib/'; |
f5a43164 JH |
3 | } |
4 | ||
1b629f66 RGS |
5 | use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok", |
6 | "bad" => "ok", fail => "die"; | |
dfa18578 JH |
7 | print "1..9\n"; |
8 | ||
9 | sub fail { print "ok ", $_[0], "\n" } | |
10 | sub ok { print "ok ", $_[0], "\n" } | |
11 | ||
12 | print "not ok 1\n"; | |
13 | print "bad 2\n"; | |
14 | ||
15 | fail(3); | |
16 | &fail(4); | |
17 | ||
18 | print "not " unless "whatnot okapi" eq "whatokapi"; | |
19 | print "ok 5\n"; | |
20 | ||
21 | ok 7 unless not ok 6; | |
22 | ||
0b2be169 FC |
23 | =begin scrumbly |
24 | ||
25 | =end scrumbly | |
26 | ||
27 | shromple | |
28 | ||
29 | =cut | |
30 | ||
31 | =for us | |
32 | ||
33 | shromple again | |
34 | ||
35 | =cut | |
36 | ||
1b629f66 | 37 | no Filter::Simple::FilterOnlyTest; # THE FUN STOPS HERE |
dfa18578 JH |
38 | |
39 | print "not " unless "not ok" =~ /^not /; | |
40 | print "ok 8\n"; | |
41 | ||
42 | print "not " unless "bad" =~ /bad/; | |
43 | print "ok 9\n"; |