diff options
| author | chromatic <chromatic@wgz.org> | 2001-11-03 05:28:17 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-03 18:41:33 +0000 |
| commit | cdfc6b8a4d928dfedc6e0d72c47eee1664e95fdc (patch) | |
| tree | 0987c489f59b7c01764b333e42736277ff4a3843 | |
| parent | 9a86a77bd2e47579153b5c82d594bdb3778f11fc (diff) | |
| download | perl-cdfc6b8a4d928dfedc6e0d72c47eee1664e95fdc.tar.gz | |
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
| -rw-r--r-- | lib/Term/Cap.t | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t index 438a144f09..85020066bf 100644 --- 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: { |