Make pause test failure more informative (#171)

r-lib · Sep 16, 2024 · e548519 · e548519
1 parent 8c72449
commit e548519
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-pause.R b/tests/testthat/test-pause.R
@@ -1,7 +1,7 @@
 test_that("pause takes expected time", {
   time <- system.time(pause(0.2))[[3]]
   # system.time is a little inaccurate so allow 10% padding
-  expect_true(abs(time - 0.2) < 1e-2)
+  expect_lt(abs(time - 0.2) / 0.2, 0.1)
 })
 
 test_that("works with integers", {