4 if( $ENV{PERL_CORE} ) {
12 unless ( $] >= 5.008001 && $Config{'useithreads'} &&
13 eval { require threads; 'threads'->import; 1; })
15 print "1..0 # Skip: no working threads\n";
23 my $Test = Test::Builder->new;
24 $Test->exported_to('main');
25 $Test->plan(tests => 6);
28 'threads'->create(sub {
29 $Test->ok(1,"Each of these should app the test number")
33 $Test->is_num($Test->current_test(), 5,"Should be five");