git.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/threads.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = '../lib';
   7     }
   8 }
   9
  10 use Config;
  11 BEGIN {
  12     unless ( $] >= 5.008001 && $Config{'useithreads'} &&
  13              eval { require threads; 'threads'->import; 1; })
  14     {
  15         print "1..0 # Skip: no working threads\n";
  16         exit 0;
  17     }
  18 }
  19
  20 use strict;
  21 use Test::Builder;
  22
  23 my $Test = Test::Builder->new;
  24 $Test->exported_to('main');
  25 $Test->plan(tests => 6);
  26
  27 for(1..5) {
  28         'threads'->create(sub {
  29           $Test->ok(1,"Each of these should app the test number")
  30     })->join;
  31 }
  32
  33 $Test->is_num($Test->current_test(), 5,"Should be five");