diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-14 14:46:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-14 14:46:36 +0000 |
| commit | cd3eb553f66a5936b983b054ddc8c6e4656ff67b (patch) | |
| tree | 24706052f481eebbeb2a4c90e6c01f456c2e550d /lib | |
| parent | e2d8ce26505da8717961292fe9055cf95f739ae3 (diff) | |
| download | perl-cd3eb553f66a5936b983b054ddc8c6e4656ff67b.tar.gz | |
Hopefully better skipping of the Complete.t tests
in case of not a tty.
p4raw-id: //depot/perl@12021
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Term/Complete.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/Term/Complete.t b/lib/Term/Complete.t index 99f206e170..3f8cb2021a 100644 --- a/lib/Term/Complete.t +++ b/lib/Term/Complete.t @@ -1,7 +1,6 @@ #!./perl BEGIN { - print "1..0 # Skip: not a tty\n" unless -t STDOUT; chdir 't' unless -d 't'; @INC = '../lib'; } @@ -10,6 +9,17 @@ use warnings; use Test::More tests => 8; use vars qw( $Term::Complete::complete $complete ); +SKIP: { + skip('PERL_SKIP_TTY_TEST', 8) if $ENV{PERL_SKIP_TTY_TEST}; + + my $TTY; + if ($^O eq 'rhapsody' && -c "/dev/ttyp0") { $TTY = "/dev/ttyp0" } + elsif (-c "/dev/tty") { $TTY = "/dev/tty" } + if (defined $TTY) { + open(TTY, $TTY) or die "open $TTY failed: $!"; + skip("$TTY not a tty", 8) if defined $TTY && ! -t TTY; + } + use_ok( 'Term::Complete' ); *complete = \$Term::Complete::complete; @@ -100,3 +110,6 @@ sub PRINT { my $self = shift; ($$self .= join('', @_)) =~ s/\s+/./gm; } + +} # end of SKIP, end of tests + |