1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings;
# Prevent Test2::Util from making 'CAN_REALLY_FORK' a constant
my $forks;
BEGIN {
require Test2::Util;
local $SIG{__WARN__} = sub { 1 }; # no warnings is not sufficient on older perls
*Test2::Util::CAN_REALLY_FORK = sub { $forks };
}
use Test2::Bundle::Extended -target => 'Test2::Require::RealFork';
{
$forks = 0;
is($CLASS->skip(), 'This test requires a perl capable of true forking.', "will skip");
$forks = 1;
is($CLASS->skip(), undef, "will not skip");
}
done_testing;
|
