In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/23fe4d6e7bec4ccc412e24d9d07947f90422f2dd?hp=6ea72ee347b910cf1fcb2cc926ed036814f815d7>
- Log ----------------------------------------------------------------- commit 23fe4d6e7bec4ccc412e24d9d07947f90422f2dd Author: Craig A. Berry <[email protected]> Date: Fri Jul 16 12:04:54 2010 -0500 Avoid test suite hang with new readline test on VMS. ----------------------------------------------------------------------- Summary of changes: t/op/readline.t | 10 ++++++++-- 1 files changed, 8 insertions(+), 2 deletions(-) diff --git a/t/op/readline.t b/t/op/readline.t index 1a57906..dece3f4 100644 --- a/t/op/readline.t +++ b/t/op/readline.t @@ -166,11 +166,17 @@ SKIP: { # retains all its allocated space and buggy perl sets SvPOK to # make the value valid but before it starts read(). my $once = test_eintr_readline( $in, 0 ); - my $twice = test_eintr_readline( $in, 1 ); is( $once, "once\n", "readline read first line ok" ); - isnt( $twice, "once\n", "readline didn't re-return things when interrupted" ); + my $twice; TODO: { + todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS'; + $twice = test_eintr_readline( $in, 1 ); + isnt( $twice, "once\n", "readline didn't re-return things when interrupted" ); + } + + TODO: { + todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS'; local our $TODO = "bad readline returns '', not undef"; is( $twice, undef, "readline returned undef when interrupted" ); } -- Perl5 Master Repository
