Try a new approach

rstudio · Sep 24, 2024 · 04e7d3e · 04e7d3e
1 parent 008f5e9
commit 04e7d3e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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)