test that protected arguments are indeed removed when provided

tidymodels · Oct 25, 2024 · 34756ab · 34756ab
1 parent 7c0de55
commit 34756ab
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-arguments.R b/tests/testthat/test-arguments.R
@@ -10,6 +10,8 @@ test_that("warns informatively about protected arguments", {
     )
   )
 
+  expect_named(.res, "e")
+
   expect_snapshot(
     .res <- check_eng_args(
       args = list(b = 2, c = 3, e = 5),
@@ -18,6 +20,8 @@ test_that("warns informatively about protected arguments", {
     )
   )
 
+  expect_named(.res, "e")
+
   expect_snapshot(
     .res <- check_eng_args(
       args = list(c = 3, e = 5),
@@ -26,6 +30,8 @@ test_that("warns informatively about protected arguments", {
     )
   )
 
+  expect_named(.res, "e")
+
   expect_warning(
     check_eng_args(
       args = list(a = 1, b = 2, c = 3, e = 5),