diff --git a/tests/testthat/test-reactivity.r b/tests/testthat/test-reactivity.r index fb36be1926..3c5d2a3dd1 100644 --- a/tests/testthat/test-reactivity.r +++ b/tests/testthat/test-reactivity.r @@ -1247,6 +1247,7 @@ test_that("debounce/throttle work properly (with priming)", { rv$a <- isolate(rv$a) + 1 }) on.exit(src$destroy(), add = TRUE) + Sys.sleep(0.01) # sleep for 10 ms to avoid threshold errors # Make a debounced reactive to test. dr <- debounce(reactive(rv$a), 500) @@ -1326,6 +1327,7 @@ test_that("debounce/throttle work properly (without priming)", { rv$a <- isolate(rv$a) + 1 }) on.exit(src$destroy(), add = TRUE) + Sys.sleep(0.01) # sleep for 10 ms to avoid threshold errors # Make a debounced reactive to test. dr <- debounce(reactive(rv$a), 500)