Lines Matching refs:thr1
128 my $thr1 = threads->create(sub {});
130 my $thr3 = threads->object($thr1->tid());
133 ok(20, $thr1 != $thr2, 'Treads not equal');
134 ok(21, !($thr1 == $thr2), 'Treads not equal');
135 ok(22, $thr1 == $thr3, 'Threads equal');
136 ok(23, !($thr1 != $thr3), 'Threads equal');
138 ok(24, $thr1->_handle(), 'Handle method');
141 ok(26, threads->object($thr1->tid())->tid() == 11, 'Object method');
144 $thr1->join();
158 $thr1 = threads->create(sub {});
159 ok(32, "$thr1" eq $thr1->tid(), 'Stringify');
160 $thr1->join();