[ID 20001207.003] [PATCH] t/base/term.t causes abort if Config.pm not built

Message-Id: <Pine.SOL.4.10.10012071049400.7566-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@8035

diff --git a/t/README b/t/README
index 0953026..7cff553 100644 (file)
--- a/t/README
+++ b/t/README
@@ -1,4 +1,4 @@
-This is the perl test library.  To run all the tests, just type 'TEST'.
+This is the perl test library.  To run all the tests, just type './TEST'.
 
 To add new tests, just look at the current tests and do likewise.
 
@@ -14,3 +14,8 @@ will fail, you may want to use Test::Harness thusly:
 This method pinpoints failed tests automatically.
 
 If you come up with new tests, please send them to perlbug@perl.org.
+
+Tests in the base/ directory ought to be runnable with plain miniperl.
+That is, they should not require Config.pm nor should they require any
+extensions to have been built.  TEST will abort if any tests in the
+base/ directory fail.

diff --git a/t/base/term.t b/t/base/term.t
index e96313d..49df11f 100755 (executable)
--- a/t/base/term.t
+++ b/t/base/term.t
@@ -4,19 +4,16 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
 }
 
-use Config;
-
 print "1..7\n";
 
 # check "" interpretation
 
 $x = "\n";
 # 10 is ASCII/Iso Latin, 21 is EBCDIC.
-if ($x eq chr(10) ||
-    ($Config{ebcdic} eq 'define' && $x eq chr(21))) {print "ok 1\n";}
+if ($x eq chr(10)) { print "ok 1\n";}
+elsif ($x eq chr(21)) { print "ok 1 # EBCDIC\n"; }
 else {print "not ok 1\n";}
 
 # check `` processing