diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-03 10:41:47 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-03 21:19:43 +0000 |
| commit | 6222ea982923143b82f6cc746e96854484c8537b (patch) | |
| tree | 309ae9bd42305fb68c1548e118cd22111defe182 | |
| parent | 6ea166ef7598ba0d1f4cc550b4aa343e904c43fe (diff) | |
| download | perl-6222ea982923143b82f6cc746e96854484c8537b.tar.gz | |
Re: [PATCH lib/Term/Cap.t] Skip testing where Term::Cap won't run (was Re: Win95 under stress)
Message-ID: <20011103154147.C600@blackrider>
p4raw-id: //depot/perl@12838
| -rw-r--r-- | lib/Term/Cap.t | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t index 85020066bf..fb87bd20e4 100644 --- a/lib/Term/Cap.t +++ b/lib/Term/Cap.t @@ -12,16 +12,19 @@ END { 1 while unlink('tcout'); } -use Test::More tests => 43; +use Test::More; # 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; +my $files = join '', + grep { -f $_ } + ( $ENV{HOME} . '/.termcap', # we assume pretty UNIXy system anyway + '/etc/termcap', + '/usr/share/misc/termcap' ); +unless( $files ) { + plan skip_all => 'no termcap available to test'; +} +else { + plan tests => 43; } use_ok( 'Term::Cap' ); |