Update test-echo.R (#2)

jmbarbone · Jan 15, 2024 · fc6815f · fc6815f
1 parent 538daad
commit fc6815f
Showing 1 changed file with 23 additions and 14 deletions.
diff --git a/tests/testthat/test-echo.R b/tests/testthat/test-echo.R
@@ -1,20 +1,24 @@
 test_that("echo() works", {
-  res <- utils::capture.output(echo({ print(1) }, level = 0)) # nolint: brace_linter, line_length_linter.
-  expect_identical(
-    substr(res, 23, nchar(res)),
-    c("[EXP] print(1)", "[OUT] #> [1] 1")
-  )
+  # nolint next: brace_linter
+  res <- utils::capture.output(echo({ print(1) }, level = 0))
+  obj <- substr(res, 23, nchar(res))
+  exp <- c("[EXP] print(1)", "[OUT] #> [1] 1")
+  expect_identical(obj, exp)
 
   expect_error(
-    echo(
-      exprs = {
-        print(NULL)
-        invisible(1)
-        message("message")
-        warning("warning")
-        stop("error")
-      },
-      log = NULL
+    expect_output(
+      expect_message(
+        echo(
+          expr = {
+            print(NULL)
+            invisible(1)
+            message("message")
+            warning("warning")
+            stop("error")
+          },
+          log = NULL
+        )
+      )
     )
   )
 
@@ -27,4 +31,9 @@ test_that("echo() works", {
     echo({ 1 }, file = tempfile()), # nolint: brace_linter.
     "must be missing"
   )
+
+  # progress still produces outputs
+  exprs <- expression(print(1), print(2))
+  expect_silent(echo(exprs = exprs, level = "NUL", progress = FALSE))
+  expect_output(echo(exprs = exprs, level = "NUL", progress = TRUE))
 })