5 require Config; import Config;
6 unless ($Config{'useithreads'}) {
7 print "1..0 # Skip: no useithreads\n";
12 use ExtUtils::testlib;
16 use Test::More tests => 4;
20 # This tests for too much destruction
21 # which was caused by cloning stashes
22 # on join which led to double the dataspace
24 #########################
34 my ($package, $file, $line) = caller;
35 is(threads->tid(),$self->{tid}, "In destroy it should be correct too" )
38 $foo = bless {tid => 0}, 'Foo';
39 my $bar = threads->create(sub {
40 is(threads->tid(),1, "And tid be 10 here");