Add missing test file

r-lib · Nov 7, 2023 · 5897f1b · 5897f1b
1 parent 5f2a9cc
commit 5897f1b
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/async/test-race.R b/tests/async/test-race.R
@@ -0,0 +1,14 @@
+
+test_that("race() rejects (#76)", {
+  defer_fail <- function() {
+    deferred$new(action = function(resolve) stop("foo"))
+  }
+
+  expect_error(
+    synchronise(async_race(
+      delay(0.1),
+      defer_fail()
+    )),
+    "foo"
+  )
+})