6 if (! $Config{'useithreads'}) {
7 print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
12 use ExtUtils::testlib;
19 # You have to do it this way or VMS will get confused.
21 print("ok $test - $name\n");
23 print("not ok $test - $name\n");
24 printf("# Failed test at line %d\n", (caller)[2]);
32 print("1..61\n"); ### Number of tests that will be run ###
38 ### Start of Testing ###
44 for (1..500000) { $i++ };
49 my $thr = threads->create('test9', $_);
50 ok($thr, "Thread created - iter $_");
56 $thr = $threads[$_-1];
57 $result = $thr->join if $thr;
58 ok($thr, "Thread joined - iter $_");