From f5a431647513928a32057b5c6a7b988927648302 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 15 Nov 2001 00:46:07 +0000
Subject: [PATCH] Corify the Filter::Simple tests.

p4raw-id: //depot/perl@13013
---
 lib/Filter/Simple/t/data.t        | 7 +++++++
 lib/Filter/Simple/t/filter.t      | 7 +++++++
 lib/Filter/Simple/t/filter_only.t | 7 +++++++
 3 files changed, 21 insertions(+)

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