From 554bc0f461f4e9d7662d10d7bd81d8c36ba36776 Mon Sep 17 00:00:00 2001 From: Leon Timmermans Date: Sun, 29 May 2011 12:59:49 +0200 Subject: [PATCH] Make sigblocking tests more independent On VMS, there seems to be a bug when using sigprocmask after sigsuspend. This patch prevents that failure from cascading to the next couple of tests. --- t/op/sigdispatch.t | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/t/op/sigdispatch.t b/t/op/sigdispatch.t index aa8a6c7..d36c357 100644 --- a/t/op/sigdispatch.t +++ b/t/op/sigdispatch.t @@ -72,14 +72,11 @@ TODO: } } -TODO: - { - local $::TODO = "Needs investigation" if $^O eq 'VMS'; - kill SIGUSR1, $$; - is $gotit, 1, 'Haven\'t received fifth signal yet'; - POSIX::sigprocmask(&POSIX::SIG_UNBLOCK, $new, $old); - ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 was still blocked'; - } + POSIX::sigprocmask(&POSIX::SIG_BLOCK, $new); + kill SIGUSR1, $$; + is $gotit, 1, 'Haven\'t received fifth signal yet'; + POSIX::sigprocmask(&POSIX::SIG_UNBLOCK, $new, $old); + ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 was still blocked'; is $gotit, 2, 'Received fifth signal'; # test unsafe signal handlers in combination with exceptions -- 2.7.4