Add a test for early return

r-lib · Jul 9, 2024 · 9034b84 · 9034b84
1 parent 7b2b8be
commit 9034b84
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-evaluate.R b/tests/testthat/test-evaluate.R
@@ -105,6 +105,16 @@ test_that("on.exit is evaluated at end of code", {
   expect_snapshot(ev)
 })
 
+test_that("return causes an early return", {
+  ev <- evaluate::evaluate(c(
+    "1 + 1",
+    "return()", 
+    "2 + 2"
+  ))
+  expect_output_types(ev, c("source", "text", "source"))
+})
+
+
 test_that("check_stop_on_error converts integer to enum", {
   expect_equal(check_stop_on_error(0), "continue")
   expect_equal(check_stop_on_error(1), "stop")