Lines Matching refs:tid
42 my $tid = threads->tid();
45 wizard data => sub { $_[1] + $tid },
52 "op object in thread $tid is correct";
54 is $op, 'sassign', "op name in thread $tid is correct";
61 is($@, '', "wizard in thread $tid doesn't croak");
62 isnt($wiz, undef, "wizard in thread $tid is defined");
63 is($c, 0, "wizard in thread $tid doesn't trigger magic");
66 is($@, '', "cast in thread $tid doesn't croak");
67 is($c, 0, "cast in thread $tid doesn't trigger magic");
70 is($@, '', "get in thread $tid doesn't croak");
71 is($b, 3, "get in thread $tid returns the right thing");
72 is($c, 1, "get in thread $tid triggers magic");
74 is($@, '', "getdata in thread $tid doesn't croak");
75 is($d, 5 + $tid, "getdata in thread $tid returns the right thing");
76 is($c, 1, "getdata in thread $tid doesn't trigger magic");
78 is($@, '', "set in thread $tid (check opname) doesn't croak");
81 is($@, '', "dispell in thread $tid doesn't croak");
82 is($c, 1, "dispell in thread $tid doesn't trigger magic");
85 is($@, '', "get in thread $tid after dispell doesn't croak");
86 is($b, 9, "get in thread $tid after dispell returns the right thing");
87 is($c, 1, "get in thread $tid after dispell doesn't trigger magic");