1BEGIN {
2    unshift @INC, 't/lib/';
3}
4
5use Filter::Simple::FilterOnlyTest qr/not ok/ => "ok",
6                                   "bad" => "ok", fail => "die";
7print "1..11\n";
8
9sub fail { print "ok ", $_[0], "\n" }
10sub ok { print "ok ", $_[0], "\n" }
11
12print "not ok 1\n";
13print "bad 2\n";
14
15fail(3);
16&fail(4);
17
18print "not " unless "whatnot okapi" eq "whatokapi";
19print "ok 5\n";
20
21ok 7 unless not ok 6;
22
23=begin scrumbly
24
25=end scrumbly
26
27shromple
28
29=cut
30
31=for us
32
33shromple again
34
35=cut
36
37no Filter::Simple::FilterOnlyTest; # THE FUN STOPS HERE
38
39print "not " unless "not ok" =~ /^not /;
40print "ok 8\n";
41
42print "not " unless "bad" =~ /bad/;
43print "ok 9\n";
44
45use Filter::Simple::ExeNoComments;
46
47=for us
48
49shromplex
50
51=cut
52
53# shromplex
54
55# test the difference from code*
56my $x = "ABC";
57
58print $x eq "TEST" ? "" : "not ", "ok 10 # check strings processed\n";
59
60print "ok 11 # executable_no_comments\n";
61