From b8d190ff31df6d51464475a3b67820d11d6c9f06 Mon Sep 17 00:00:00 2001 From: Charles Lane Date: Fri, 19 Oct 2001 13:26:35 -0400 Subject: [PATCH] two fake test failures on VMS fixed Message-Id: <011019172623.11292c@DUPHY4.Physics.Drexel.Edu> p4raw-id: //depot/perl@12512 --- lib/Term/Complete.t | 2 +- lib/Test/Simple/t/output.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Term/Complete.t b/lib/Term/Complete.t index 81253cc..7386474 100644 --- a/lib/Term/Complete.t +++ b/lib/Term/Complete.t @@ -15,7 +15,7 @@ SKIP: { use_ok( 'Term::Complete' ); # this skips tests AND prevents the "used only once" warning - skip('No stty, Term::Complete will not run here', 8) + skip('No stty, Term::Complete will not run here', 7) unless defined $Term::Complete::tty_raw_noecho && defined $Term::Complete::tty_restore; diff --git a/lib/Test/Simple/t/output.t b/lib/Test/Simple/t/output.t index ef89a07..69682e4 100644 --- a/lib/Test/Simple/t/output.t +++ b/lib/Test/Simple/t/output.t @@ -35,7 +35,7 @@ close *$out; undef $out; open(IN, 'foo') or die $!; chomp(my $line = ); - +close IN; ok($line eq 'hi!'); open(FOO, ">>foo") or die $!; -- 2.7.4