From 23fe4d6e7bec4ccc412e24d9d07947f90422f2dd Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 16 Jul 2010 12:04:54 -0500 Subject: [PATCH] Avoid test suite hang with new readline test on VMS. --- t/op/readline.t | 10 ++++++++-- 1 file 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" ); } -- 2.7.4