Change 12512 by jhi@alpha on 2001/10/19 20:28:48
Subject: [PATCH Perl@12494] two fake test failures on VMS fixed
From: [EMAIL PROTECTED] (Charles Lane)
Date: Fri, 19 Oct 2001 17:26:35 EDT
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Term/Complete.t#10 edit
... //depot/perl/lib/Test/Simple/t/output.t#2 edit
Differences ...
==== //depot/perl/lib/Term/Complete.t#10 (text) ====
Index: perl/lib/Term/Complete.t
--- perl/lib/Term/Complete.t.~1~ Fri Oct 19 14:45:05 2001
+++ perl/lib/Term/Complete.t Fri Oct 19 14:45:05 2001
@@ -15,7 +15,7 @@
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;
==== //depot/perl/lib/Test/Simple/t/output.t#2 (text) ====
Index: perl/lib/Test/Simple/t/output.t
--- perl/lib/Test/Simple/t/output.t.~1~ Fri Oct 19 14:45:05 2001
+++ perl/lib/Test/Simple/t/output.t Fri Oct 19 14:45:05 2001
@@ -35,7 +35,7 @@
undef $out;
open(IN, 'foo') or die $!;
chomp(my $line = <IN>);
-
+close IN;
ok($line eq 'hi!');
open(FOO, ">>foo") or die $!;
End of Patch.
