From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 15 Nov 2001 00:46:07 +0000 (+0000)
Subject: Corify the Filter::Simple tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5a431647513928a32057b5c6a7b988927648302;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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";