more tight checks

Author: lorenzwalthert

tests/testthat/test-cache-high-level-api.R

@@ -119,7 +119,7 @@ capture.output(test_that("no speedup when tranformer changes", {
   first <- system.time(style_text(text, transformers = t1))
   t1 <- tidyverse_style(indent_by = 4)
   second <- system.time(style_text(text, transformers = t1))
-  expect_false(first["elapsed"] / 2 > second["elapsed"])
+  expect_false(first["elapsed"] / 1.2 > second["elapsed"])
 }))