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 for (1..500000) { $i++ };
53 my $thr = threads->create('test9', $_);
54 ok($thr, "Thread created - iter $_");
60 $thr = $threads[$_-1];
61 $result = $thr->join if $thr;
62 ok($thr, "Thread joined - iter $_");