Fix timings in tests (#237)

* Fix tests timing

* Amend one other timing

* Formatting

Author: shikokuchuo

tests/testthat/test-private-loops.R

@@ -460,7 +460,7 @@ test_that("next_op_secs works", {
 
     later(function() {}, 0.1)
     expect_true(next_op_secs() <= 0.1)
-    run_now(0.15)
+    run_now(2)
 
     current_loop()
   })

tests/testthat/test-run_now.R

@@ -146,16 +146,13 @@ test_that("Callbacks cannot affect the caller", {
   # to return from because it (f()) already returned.
   f <- function() {
     delayedAssign("throw", return(100))
-    later(
-      function() {
-        throw
-      },
-      0.5
-    )
+    later(function() {
+      throw
+    })
     return(200)
   }
   g <- function() {
-    run_now(1)
+    run_now(2)
   }
   expect_equal(f(), 200)
   expect_snapshot(error = TRUE, g())