threads-shared/t/wait.t

48 # cond_wait and cond_timedwait extended tests adapted from cond.t
63 ok($TEST++, defined &cond_wait, "cond_wait() present");
64 ok($TEST++, (prototype(\&cond_wait) eq '\[$@%];\[$@%]'),
65                 q/cond_wait() prototype '\[$@%];\[$@%]'/);
72     "simple",  # cond var == lock var; implicit lock; e.g.: cond_wait($c)
73     "repeat",  # cond var == lock var; explicit lock; e.g.: cond_wait($c, $c)
74     "twain"    # cond var != lock var; explicit lock; e.g.: cond_wait($c, $l)
105     # - TEST cond_wait
117             cond_wait($cond), last        if /simple/;
118             cond_wait($cond, $cond), last if /repeat/;
119             cond_wait($cond, $lock), last if /twain/;
129         $test_type = "cond_wait [$_]";
238     # - TEST cond_wait
250             cond_wait($cond), last        if /simple/;
251             cond_wait($cond, $cond), last if /repeat/;
252             cond_wait($cond, $lock), last if /twain/;
262         $test_type = "cond_wait [$_]";