Skip testing where Term::Cap won't run (was Re: Win95 under stress)

Message-ID: <20011103193507.94848.qmail@onion.perl.org>

p4raw-id: //depot/perl@12836

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index 438a144..8502006 100644 (file)
--- a/lib/Term/Cap.t
+++ b/lib/Term/Cap.t
@@ -14,6 +14,16 @@ END {
 
 use Test::More tests => 43;
 
+# these names are hardcoded in Term::Cap
+my $files = join '', grep { -f $_ } ( $ENV{HOME} . '/.termcap', '/etc/termcap', 
+       '/usr/share/misc/termcap' );
+unless ($files) {
+       SKIP: {
+               skip('no termcap available to test', 43);
+       }
+       exit;
+}
+
 use_ok( 'Term::Cap' );
 
 local (*TCOUT, *OUT);
@@ -27,11 +37,9 @@ if (open(TCOUT, ">tcout")) {
        $writable = 0;
 }
 
-# termcap_path -- the names are hardcoded in Term::Cap
+# termcap_path
 $ENV{TERMCAP} = '';
 my $path = join '', Term::Cap::termcap_path();
-my $files = join '', grep { -f $_ } ( $ENV{HOME} . '/.termcap', '/etc/termcap', 
-       '/usr/share/misc/termcap' );
 is( $path, $files, 'termcap_path() should find default files' );
 
 SKIP: {