Retract #12358 for now.
Jarkko Hietaniemi [Mon, 8 Oct 2001 14:05:50 +0000 (14:05 +0000)]
p4raw-id: //depot/perl@12362

lib/Term/Cap.t

index bceba75..f3da8c9 100644 (file)
@@ -1,8 +1,6 @@
 #!./perl
 
-my $file;
 BEGIN {
-       $file = $0;
        chdir 't' if -d 't';
        @INC = '../lib';
 }
@@ -36,14 +34,14 @@ is( $path, $files, 'termcap_path() should find default files' );
 
 SKIP: {
        # this is ugly, but -f $0 really *ought* to work
-       skip("-f $file fails, some tests difficult now", 2) unless -f $file;
+       skip("-f $0 fails, some tests difficult now", 2) unless -f $0;
 
-       $ENV{TERMCAP} = $ENV{TERMPATH} = $file;
-       ok( grep($file, Term::Cap::termcap_path()), 
+       $ENV{TERMCAP} = $ENV{TERMPATH} = $0;
+       ok( grep($0, Term::Cap::termcap_path()), 
                'termcap_path() should find file from $ENV{TERMCAP}' );
 
        $ENV{TERMCAP} = (grep { $^O eq $_ } qw( os2 MSWin32 dos )) ? 'a:/' : '/';
-       ok( grep($file, Term::Cap::termcap_path()), 
+       ok( grep($0, Term::Cap::termcap_path()), 
                'termcap_path() should find file from $ENV{TERMPATH}' );
 }
 
@@ -102,13 +100,11 @@ $ENV{TERMCAP} = '';
 eval { $t = Term::Cap->Tgetent($vals) };
 isn't( $@, '', 'Tgetent() should catch bad termcap file' );
 
-# if there's no valid termcap file found, it should croak 
-# (an empty string in $ENV{TERMPATH} and $ENV{TERM} counts as 'not found')
+# if there's no valid termcap file found, it should croak
 $vals->{TERM} = '';
-$ENV{TERMPATH} = '';
-$ENV{TERMCAP} = '|:';
+$ENV{TERMPATH} = $0;
 eval { $t = Term::Cap->Tgetent($vals) };
-like( $@, qr/failed termcap lookup/, 'Tgetent() should die with bad termcap' );
+like( $@, qr/failed termcap lookup/, 'Tgetent() should dies with bad termcap' );
 
 SKIP: {
        skip( "Can't write 'tcout' file for tests", 8 ) unless $writable;