Skip to content

Commit

Permalink
This regression test requires fork(), but it didn't skip if the system
Browse files Browse the repository at this point in the history
can't support fork().  This commit addresses rt.cpan.org ticket #9808
and testers.cpan.org report #176869 by skipping the tests on lame
platforms.
  • Loading branch information
rcaputo committed Jan 17, 2005
1 parent 393ed38 commit ee75e7e
Showing 1 changed file with 16 additions and 0 deletions.
16 changes: 16 additions & 0 deletions tests/90_regression/rt1648-tied-stderr.t
Expand Up @@ -6,6 +6,22 @@
# makes sure the bad behavior does not come back.

use strict;

# Skip these tests if fork() is unavailable.
BEGIN {
my $error;
if ($^O eq "MacOS") {
$error = "$^O does not support fork";
}
elsif ($^O eq "MSWin32") {
$error = "$^O does not support fork/exec properly";
}
if ($error) {
print "1..0 # Skip $error\n";
exit();
}
}

use Test::More tests => 1;

sub POE::Kernel::ASSERT_DEFAULT () { 1 }
Expand Down

0 comments on commit ee75e7e

Please sign in to comment.