This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip a problematic test on openbsd/thread
authorTony Cook <tony@develop-help.com>
Tue, 26 Apr 2011 08:21:52 +0000 (18:21 +1000)
committerJesse Vincent <jesse@bestpractical.com>
Wed, 27 Apr 2011 09:49:22 +0000 (17:49 +0800)
I'd make this a TODO, but the test currently results in the watchdog
firing, so harness/TEST would never see the "TODO".

t/op/sigdispatch.t

index c61a5dc..aa8a6c7 100644 (file)
@@ -41,6 +41,8 @@ is($@, "Alarm!\n", 'after the second loop');
 SKIP: {
     skip('We can\'t test blocking without sigprocmask', 11)
        if is_miniperl() || !$Config{d_sigprocmask};
+    skip('This doesn\'t work on OpenBSD threaded builds RT#88814', 11)
+        if $^O eq 'openbsd' && $Config{useithreads};
 
     require POSIX;
     my $new = POSIX::SigSet->new(&POSIX::SIGUSR1);