| #!/usr/bin/perl -w |
| |
| BEGIN { |
| if( $ENV{PERL_CORE} ) { |
| chdir 't'; |
| @INC = '../lib'; |
| } |
| } |
| |
| use Config; |
| BEGIN { |
| unless ( $] >= 5.008001 && $Config{'useithreads'} && |
| eval { require threads; 'threads'->import; 1; }) |
| { |
| print "1..0 # Skip: no working threads\n"; |
| exit 0; |
| } |
| } |
| |
| use strict; |
| use Test::Builder; |
| |
| my $Test = Test::Builder->new; |
| $Test->exported_to('main'); |
| $Test->plan(tests => 6); |
| |
| for(1..5) { |
| 'threads'->create(sub { |
| $Test->ok(1,"Each of these should app the test number") |
| })->join; |
| } |
| |
| $Test->is_num($Test->current_test(), 5,"Should be five"); |