Re: [PATCH lib/Term/Cap.t] Skip testing where Term::Cap won't run (was Re: Win95...

Message-ID: <20011103154147.C600@blackrider>

p4raw-id: //depot/perl@12838

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index 8502006..fb87bd2 100644 (file)
--- 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' );