5 if ($ENV{'PERL_CORE'}){
7 unshift @INC, '../lib';
10 if (! $Config{'useithreads'}) {
11 print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
16 use ExtUtils::testlib;
23 # You have to do it this way or VMS will get confused.
25 print("ok $test - $name\n");
27 print("not ok $test - $name\n");
28 printf("# Failed test at line %d\n", (caller)[2]);
36 print("1..61\n"); ### Number of tests that will be run ###
42 ### Start of Testing ###
48 my $thr = threads->create(sub { my $ii = shift;
49 for (1..500000) { $ii++ } }, $_);
50 ok($thr, "Thread created - iter $_");
56 $thr = $threads[$_-1];
57 $result = $thr->join if $thr;
58 ok($thr, "Thread joined - iter $_");