Corify the Filter::Simple tests.

p4raw-id: //depot/perl@13013

diff --git a/lib/Filter/Simple/t/data.t b/lib/Filter/Simple/t/data.t
index 4618e36..8307f04 100644 (file)
--- a/lib/Filter/Simple/t/data.t
+++ b/lib/Filter/Simple/t/data.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+        chdir('t') if -d 't';
+        @INC = qw(lib ../lib);
+    }
+}
+
 use FilterOnlyTest qr/ok/ => "not ok", "bad" => "ok";
 print "1..6\n";
 

diff --git a/lib/Filter/Simple/t/filter.t b/lib/Filter/Simple/t/filter.t
index d16c7fa..618d9f4 100644 (file)
--- a/lib/Filter/Simple/t/filter.t
+++ b/lib/Filter/Simple/t/filter.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+        chdir('t') if -d 't';
+        @INC = qw(lib ../lib);
+    }
+}
+
 use FilterTest qr/not ok/ => "ok", fail => "ok";
 
 print "1..6\n";

diff --git a/lib/Filter/Simple/t/filter_only.t b/lib/Filter/Simple/t/filter_only.t
index 45745b0..60d83d8 100644 (file)
--- a/lib/Filter/Simple/t/filter_only.t
+++ b/lib/Filter/Simple/t/filter_only.t
@@ -1,3 +1,10 @@
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+        chdir('t') if -d 't';
+        @INC = qw(lib ../lib);
+    }
+}
+
 use FilterOnlyTest qr/not ok/ => "ok", "bad" => "ok", fail => "die";
 print "1..9\n";