diff options
author | Craig A. Berry <craigberry@mac.com> | 2011-04-17 22:43:45 -0500 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2011-04-17 22:43:45 -0500 |
commit | 23292af314730ff686527208d3274be920724e97 (patch) | |
tree | 9c71aef189de035813c8d967a4b159bf8707359f /t | |
parent | 40f026236b9959b7ad3260fedc6c66cd30bb7abc (diff) | |
download | perl-23292af314730ff686527208d3274be920724e97.tar.gz |
TODO some of the new sigdispatch tests on VMS.
Needs more signal foo than I can muster at the moment to figure out
what the intent is here and why it's not working.
Diffstat (limited to 't')
-rw-r--r-- | t/op/sigdispatch.t | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/t/op/sigdispatch.t b/t/op/sigdispatch.t index 75bc417e2f..522e3b6285 100644 --- a/t/op/sigdispatch.t +++ b/t/op/sigdispatch.t @@ -63,13 +63,21 @@ SKIP: { eval { POSIX::sigsuspend(POSIX::SigSet->new) }; is $@, "FAIL\n", 'Exception is thrown, so received fourth signal'; POSIX::sigprocmask(&POSIX::SIG_BLOCK, undef, $old); +TODO: + { + local $::TODO = "Needs investigation" if $^O eq 'VMS'; ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 is still blocked'; + } } - 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'; +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'; + } is $gotit, 2, 'Received fifth signal'; # test unsafe signal handlers in combination with exceptions |