# We assume that TestInit has been used.
BEGIN {
+ chdir 't' if -d 't';
require './test.pl';
}
plan tests => 29;
$| = 1;
-watchdog(15);
+watchdog(25);
$SIG{ALRM} = sub {
die "Alarm!\n";
skip('We can\'t test blocking without sigprocmask', 17)
if is_miniperl() || !$Config{d_sigprocmask};
skip("This doesn\'t work on $^O threaded builds RT#88814", 17)
- if ($^O =~ /cygwin/ || $^O eq "openbsd" && $Config{osvers} < 5.2)
- && $Config{useithreads};
+ if ($^O =~ /cygwin/ && $Config{useithreads});
+ skip("This doesn\'t work on $^O version $Config{osvers} RT#88814", 17)
+ if ($^O eq "openbsd" && $Config{osvers} < 5.2);
require POSIX;
my $pending = POSIX::SigSet->new();
# tests on production releases
skip("some OSes hang here", 3) if (int($]*1000) & 1) == 0;
- TODO: {
- local $::TODO = "Issues on Android" if $^O =~ /android/;
+ SKIP: {
+ skip("Issues on Android", 3) if $^O =~ /android/;
my $action = POSIX::SigAction->new(sub { $gotit--, die }, POSIX::SigSet->new, 0);
POSIX::sigaction(&POSIX::SIGALRM, $action);
eval {