Upgrade to CPAN-1.88_62

[p5sagit/p5-mst-13.2.git] / lib / Term / Complete.t

diff --git a/lib/Term/Complete.t b/lib/Term/Complete.t
index 99f206e..7386474 100644 (file)
--- a/lib/Term/Complete.t
+++ b/lib/Term/Complete.t
@@ -1,60 +1,74 @@
 #!./perl
 
 BEGIN {
-       print "1..0 # Skip: not a tty\n" unless -t STDOUT;
-       chdir 't' unless -d 't';
+       chdir 't' if -d 't';
        @INC = '../lib';
 }
 
 use warnings;
 use Test::More tests => 8;
-use vars qw( $Term::Complete::complete $complete );
-
-use_ok( 'Term::Complete' );
-
-*complete = \$Term::Complete::complete;
-
-my $in = tie *STDIN, 'FakeIn', "fro\t";
-my $out = tie *STDOUT, 'FakeOut';
-my @words = ( 'frobnitz', 'frobozz', 'frostychocolatemilkshakes' );
-
-Complete('', \@words);
-my $data = get_expected('fro', @words);
-
-# there should be an \a after our word
-like( $$out, qr/fro\a/, 'found bell character' );
-
-# now remove the \a -- there should be only one
-is( $out->scrub(), 1, '(single) bell removed');
-
-# 'fro' should match all three words
-like( $$out, qr/$data/, 'all three words possible' );
-$out->clear();
-
-# should only find 'frobnitz' and 'frobozz'
-$in->add('frob');
-Complete('', @words);
-$out->scrub();
-is( $$out, get_expected('frob', 'frobnitz', 'frobozz'), 'expected frob*' );
-$out->clear();
-
-# should only do 'frobozz'
-$in->add('frobo');
-Complete('', @words);
-$out->scrub();
-is( $$out, get_expected( 'frobo', 'frobozz' ), 'only frobozz possible' );
-$out->clear();
-
-# change the completion character
-$complete = "!";
-$in->add('frobn');
-Complete('prompt:', @words);
-$out->scrub();
-like( $$out, qr/prompt:frobn/, 'prompt is okay' );
-
-# now remove the prompt and we should be okay
-$$out =~ s/prompt://g;
-is( $$out, get_expected('frobn', 'frobnitz' ), 'works with new $complete' );
+use vars qw( $Term::Complete::complete $complete $Term::Complete::stty );
+
+SKIP: {
+    skip('PERL_SKIP_TTY_TEST', 8) if $ENV{PERL_SKIP_TTY_TEST};
+    
+    use_ok( 'Term::Complete' );
+  
+    # this skips tests AND prevents the "used only once" warning
+    skip('No stty, Term::Complete will not run here', 7)
+       unless defined $Term::Complete::tty_raw_noecho &&
+              defined $Term::Complete::tty_restore;
+
+    # also prevent Term::Complete from running stty and messing up the terminal
+    undef $Term::Complete::tty_restore;
+    undef $Term::Complete::tty_raw_noecho;
+    undef $Term::Complete::stty;
+
+    *complete = \$Term::Complete::complete;
+
+    my $in = tie *STDIN, 'FakeIn', "fro\t";
+    my $out = tie *STDOUT, 'FakeOut';
+    my @words = ( 'frobnitz', 'frobozz', 'frostychocolatemilkshakes' );
+
+    Complete('', \@words);
+    my $data = get_expected('fro', @words);
+    
+    # there should be an \a after our word
+    like( $$out, qr/fro\a/, 'found bell character' );
+
+    # now remove the \a -- there should be only one
+    is( $out->scrub(), 1, '(single) bell removed');
+
+    # 'fro' should match all three words
+    like( $$out, qr/$data/, 'all three words possible' );
+    $out->clear();
+
+    # should only find 'frobnitz' and 'frobozz'
+    $in->add('frob');
+    Complete('', @words);
+    $out->scrub();
+    is( $$out, get_expected('frob', 'frobnitz', 'frobozz'), 'expected frob*' );
+    $out->clear();
+
+    # should only do 'frobozz'
+    $in->add('frobo');
+    Complete('', @words);
+    $out->scrub();
+    is( $$out, get_expected( 'frobo', 'frobozz' ), 'only frobozz possible' );
+    $out->clear();
+
+    # change the completion character
+    $complete = "!";
+    $in->add('frobn');
+    Complete('prompt:', @words);
+    $out->scrub();
+    like( $$out, qr/prompt:frobn/, 'prompt is okay' );
+
+    # now remove the prompt and we should be okay
+    $$out =~ s/prompt://g;
+    is( $$out, get_expected('frobn', 'frobnitz' ), 'works with new $complete' );
+
+} # end of SKIP, end of tests
 
 # easier than matching space characters
 sub get_expected {