error not warning

Author: MichaelChirico

.dev/gen_roxygen_tests.R

@@ -7,18 +7,20 @@ unique_tests <- unique(sub("-.*", "", all_examples))
 # tests using 'scope = "spaces"' in test_collection()
 tests_scope_spaces <- "15"
 
-warning_map <- c(`23` = '"issues/1242"')
+condition_map <- list(`23` = c("error", '"issues/1242"'))
 
 for (test in unique_tests) {
   out_file <- file.path("tests", "testthat", paste0("test-", roxygen_stub, "-", test, ".R"))
   extras <- if (test %in% tests_scope_spaces) ', scope = "spaces"' else ""
+  condition <- condition_map[[test]]
+  if (is.null(condition)) condition <- c("warning", "NA")
   writeLines(con = out_file, c(
     "# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.",
     "",
     sprintf('test_that("analogous to test-%s: %s", {', roxygen_stub, test),
     sprintf(
-      '  expect_warning(test_collection("%s", "^%s-", transformer = style_text%s), %s)',
-      roxygen_stub, test, extras, warning_map[test]
+      '  expect_%s(test_collection("%s", "^%s-", transformer = style_text%s), %s)',
+      condition[1L], roxygen_stub, test, extras, condition[2L]
     ),
     "})",
     NULL

tests/testthat/test-roxygen-examples-complete-23.R

@@ -1,5 +1,5 @@
 # NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
 
 test_that("analogous to test-roxygen-examples-complete: 23", {
-  expect_warning(test_collection("roxygen-examples-complete", "^23-", transformer = style_text), "issues/1242")
+  expect_error(test_collection("roxygen-examples-complete", "^23-", transformer = style_text), "issues/1242")
 })