! Non-recursive
{ } [
"." f <monitor> "m" set
- 100 milliseconds "m" get set-timeout
+ 250 milliseconds "m" get set-timeout
[ [ t ] [ "m" get next-change drop ] while ] must-fail
"m" get dispose
] unit-test
! Recursive
{ } [
"." t <monitor> "m" set
- 100 milliseconds "m" get set-timeout
+ 250 milliseconds "m" get set-timeout
[ [ t ] [ "m" get next-change drop ] while ] must-fail
"m" get dispose
] unit-test
"p" get fulfill
] in-thread
- 100 milliseconds sleep
+ 250 milliseconds sleep
"m" get dispose
"p" get 10 seconds ?promise-timeout