1BEGIN {
2    unshift @INC, 't/lib/';
3}
4
5use Filter::Simple::FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
6print "1..6\n";
7
8print "bad 1\n";
9print "bad 2\n";
10print "bad 3\n";
11print  <DATA>;
12
13__DATA__
14ok 4
15ok 5
16ok 6
17