diff options
Diffstat (limited to 'lib/Term/Cap.t')
| -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' ); |