Add tests and NEWS bullet

lionel- · lionel- · commit 58e3e87a5acc · 2025-09-11T16:38:05.000+02:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # coro (development version)
 
+* Async functions and generators can now be R6 methods.
+
+
 # coro 1.1.0
 
 * Iterator functions are now allowed to have a `close` argument.
diff --git a/tests/testthat/test-async.R b/tests/testthat/test-async.R
@@ -364,3 +364,24 @@ test_that("async functions do not cause CMD check notes (#40)", {
     ))
   )
 })
+
+test_that("async methods in R6 classes", {
+  testthat::skip_if_not_installed("R6")
+
+  AsyncClass <- R6::R6Class(
+    classname = "AsyncClass",
+    public = list(
+      async_resolved = async(function() "value"),
+      async_pending = async(function() await("value"))
+    )
+  )
+  class <- AsyncClass$new()
+
+  later::with_temp_loop({
+    out <- class$async_resolved()
+    expect_promise(out, "value", "fulfilled")
+
+    out <- class$async_pending()
+    expect_promise(out, status = "pending")
+  })
+})
diff --git a/tests/testthat/test-generator.R b/tests/testthat/test-generator.R
@@ -32,6 +32,27 @@ test_that("short syntax and for loop support", {
   expect_identical(out, dbl(1, 9, 25))
 })
 
+test_that("generator methods in R6 classes", {
+  testthat::skip_if_not_installed("R6")
+
+  GenClass <- R6::R6Class(
+    "GenClass",
+    public = list(
+      gen_method = generator(function() {
+        yield(1)
+        yield(2)
+      })
+    )
+  )
+
+  obj <- GenClass$new()
+  g <- obj$gen_method()
+
+  expect_equal(g(), 1)
+  expect_equal(g(), 2)
+  expect_exhausted(g())
+})
+
 test_that("generator factories print nicely", {
   factory <- generator(function() yield(NULL))
   expect_snapshot(print(factory, reproducible = TRUE))
