lib/Filter/Simple/t/data.t

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