tests: Add second tests for stopifnot

MEO265 · Jan 10, 2024 · efb9c13 · efb9c13
1 parent 59bc12f
commit efb9c13
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/tests/testthat/test-handlers.R b/tests/testthat/test-handlers.R
@@ -46,6 +46,9 @@ test_that("stopifnot",{
   expect_identical_error(stopifnot(f(x = FALSE)), base::stopifnot(f(x = FALSE)))
   g <- function () f(FALSE)
   expect_identical_error(stopifnot(4 == 4, g()), base::stopifnot(4==4, g()))
+  expect_identical_error(stopifnot(4 == 4, "Test" = g()), base::stopifnot(4==4, "Test" = g()))
+  expect_identical_error(stopifnot(exprs = {TRUE; FALSE}), base::stopifnot(exprs = {TRUE; FALSE}))
+  expect_identical_error(stopifnot(exprObject = {TRUE; FALSE}), base::stopifnot(exprObject = {TRUE; FALSE}))
   expect_no_error(stopifnot(TRUE, 3 == 3))
 })