1BEGIN {
2    if( $ENV{PERL_CORE} ) {
3        chdir 't';
4        @INC = ('../lib', 'lib');
5    }
6    else {
7        unshift @INC, 't/lib/';
8    }
9}
10chdir 't';
11
12use Filter::Simple::FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
13print "1..6\n";
14
15print "bad 1\n";
16print "bad 2\n";
17print "bad 3\n";
18print  <DATA>;
19
20__DATA__
21ok 4
22ok 5
23ok 6
24