Sync CPAN version of tests (was Re: [PATCH lib/Term/Cap.t] Skip testing where Term...

stress))
Message-ID: <Pine.LNX.4.33.0111060651210.315-100000@orpheus.gellyfish.com>

(except for one hunk where indentation differs)

p4raw-id: //depot/perl@12880

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index fb87bd2..587e00e 100644 (file)
--- a/lib/Term/Cap.t
+++ b/lib/Term/Cap.t
@@ -1,10 +1,14 @@
 #!./perl
 
 my $file;
+
 BEGIN {
-       $file = $0;
-       chdir 't' if -d 't';
-       @INC = '../lib';
+        $file = $0;
+        chdir 't' if -d 't';
+
+        if ( $ENV{PERL_CORE} ) {
+           @INC = '../lib';
+        }
 }
 
 END {
@@ -40,7 +44,7 @@ if (open(TCOUT, ">tcout")) {
        $writable = 0;
 }
 
-# termcap_path
+# termcap_path -- the names are hardcoded in Term::Cap
 $ENV{TERMCAP} = '';
 my $path = join '', Term::Cap::termcap_path();
 is( $path, $files, 'termcap_path() should find default files' );