threads - miscellaneous

[p5sagit/p5-mst-13.2.git] / ext / threads / t / libc.t

use strict;
use warnings;

BEGIN {
    if ($ENV{'PERL_CORE'}){
        chdir 't';
        unshift @INC, '../lib';
    }
    use Config;
    unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";
        exit 0;
    }
}

use ExtUtils::testlib;

sub ok {
    my ($id, $ok, $name) = @_;

    # You have to do it this way or VMS will get confused.
    if ($ok) {
        print("ok $id - $name\n");
    } else {
        print("not ok $id - $name\n");
        printf("# Failed test at line %d\n", (caller)[2]);
    }

    return ($ok);
}

BEGIN { $| = 1; print "1..12\n"};

use threads;
use threads::shared;
ok(1, 1, 'Loaded');

my $i = 10;
my $y = 20000;
my %localtime;
for(0..$i) {
	$localtime{$_} = localtime($_);
};
my $mutex = 2;
share($mutex);
sub localtime_r {
  lock($mutex);
  my $retval = localtime(shift());
  return $retval;
}
my @threads;
for(0..$i) {
  my $thread = threads->create(sub {
				 my $arg = $_;
		    my $localtime = $localtime{$arg};
		    my $error = 0;
		    for(0..$y) {
		      my $lt = localtime($arg);
		      if($localtime ne $lt) {
			$error++;
		      }	
		    }
				 lock($mutex);
                                 ok($mutex, ! $error, 'localtime safe');
				 $mutex++;
		  });	
  push @threads, $thread;
}

for(@threads) {
  $_->join();
}