Change 13013 by jhi@alpha on 2001/11/15 00:46:07
Corify the Filter::Simple tests.
Affected files ...
.... //depot/perl/lib/Filter/Simple/t/data.t#2 edit
.... //depot/perl/lib/Filter/Simple/t/filter.t#4 edit
.... //depot/perl/lib/Filter/Simple/t/filter_only.t#2 edit
Differences ...
==== //depot/perl/lib/Filter/Simple/t/data.t#2 (text) ====
Index: perl/lib/Filter/Simple/t/data.t
--- perl/lib/Filter/Simple/t/data.t.~1~ Wed Nov 14 18:00:06 2001
+++ perl/lib/Filter/Simple/t/data.t Wed Nov 14 18:00:06 2001
@@ -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";
==== //depot/perl/lib/Filter/Simple/t/filter.t#4 (text) ====
Index: perl/lib/Filter/Simple/t/filter.t
--- perl/lib/Filter/Simple/t/filter.t.~1~ Wed Nov 14 18:00:06 2001
+++ perl/lib/Filter/Simple/t/filter.t Wed Nov 14 18:00:06 2001
@@ -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";
==== //depot/perl/lib/Filter/Simple/t/filter_only.t#2 (text) ====
Index: perl/lib/Filter/Simple/t/filter_only.t
--- perl/lib/Filter/Simple/t/filter_only.t.~1~ Wed Nov 14 18:00:06 2001
+++ perl/lib/Filter/Simple/t/filter_only.t Wed Nov 14 18:00:06 2001
@@ -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";
End of Patch.
