blob: c60c61e65076335cf10cf4314108148c656da407 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
use Config;
BEGIN {
if ($] == 5.010000) {
print "1..0 # Threads are broken on 5.10.0\n";
exit 0;
}
my $works = 1;
$works &&= $] >= 5.008001;
$works &&= $Config{'useithreads'};
$works &&= eval { require threads; 'threads'->import; 1 };
unless ($works) {
print "1..0 # Skip no working threads\n";
exit 0;
}
unless ($ENV{AUTHOR_TESTING}) {
print "1..0 # Skip many perls have broken threads. Enable with AUTHOR_TESTING.\n";
exit 0;
}
if ($INC{'Devel/Cover.pm'}) {
print "1..0 # SKIP Devel::Cover does not work with threads yet\n";
exit 0;
}
}
use threads;
use strict;
use warnings;
use Test::More;
{
my $todo = sub {
my $out;
ok(1);
42;
};
is(
threads->create($todo)->join,
42,
"Correct result after do-er",
);
}
done_testing;
|
