my $times = 10;
my $srand = 12345678;
my @local;
my @shared : shared;
my $random = int(rand($times));
ok( ($random>=0 and $random<$times),      'check range of number' );
$random = rand();
ok( ($random>=0 and $random<1),           'check range of number' );
$random = rand(0);
ok( ($random>=0 and $random<1),           'check range of number' );
$random = rand(undef);
ok( ($random>=0 and $random<1),           'check range of number' );
CORE::srand( $srand );
push( @local,CORE::rand() ) foreach 1..$times;
cmp_ok( scalar(@local),'==',$times,     'check length of array' );
srand( $srand );
push( @shared,rand() ) foreach 1..$times;
cmp_ok( scalar(@shared),'==',$times,    'check length of array' );
is( join('',@shared),join('',@local),   'compare result same thread' );
srand( $srand );
@shared = ();
my $done : shared = 0;
my @thread;
push( @thread, threads->new( sub {
  AGAIN: while (1) {
    {
     lock( $done );
     last AGAIN if $done == $times;
     $done++;
     push( @shared,rand() );
    } #$done
  }
} ) ) foreach 1..10;
$_->join foreach @thread;
cmp_ok( scalar(@shared),'==',$times,    'check length of array' );
is( join('',@shared),join('',@local),   'compare result different threads' );
1;