cv <- cv()
cv_value(cv)
start <- mclock()
s <- timed_signal(cv, time = 100L, flag = FALSE)
wait(cv) == TRUE
mclock() - start
s <- timed_signal(cv, time = 100L, flag = TRUE)
wait(cv) == FALSE
mclock() - start
Run the code above in your browser using DataLab