use feedback

Author: MichaelChirico

.dev/gen_roxygen_tests.R

@@ -1,16 +1,23 @@
 #!/usr/bin/Rscript
 # execute from package TLD: ./.dev/gen_roxygen_tests.R
-all_examples <- list.files("tests/testthat/roxygen-examples-complete", full.names = TRUE)
-unique_tests <- unique(sub("-.*", "", basename(all_examples)))
+roxygen_stub <- "roxygen-examples-complete"
+all_examples <- list.files(file.path("tests", "testthat", roxygen_stub))
+unique_tests <- unique(sub("-.*", "", all_examples))
+
+# tests using 'scope = "spaces"' in test_collection()
+tests_scope_spaces <- "15"
 
 for (test in unique_tests) {
-  out_file <- file.path("tests", "testthat", paste0("test-roxygen-examples-complete-", test, ".R"))
-  extras <- if (test == "15") ', scope = "spaces"' else ""
+  out_file <- file.path("tests", "testthat", paste0("test-", roxygen_stub, "-", test, ".R"))
+  extras <- if (test %in% tests_scope_spaces) ', scope = "spaces"' else ""
   writeLines(con = out_file, c(
     "# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.",
     "",
-    sprintf('test_that("analogous to test-roxygen-examples-complete: %s", {', test),
-    sprintf('  expect_warning(test_collection("roxygen-examples-complete", "^%s-", transformer = style_text%s), NA)', test, extras),
+    sprintf('test_that("analogous to test-%s: %s", {', roxygen_stub, test),
+    sprintf(
+      '  expect_warning(test_collection("%s", "^%s-", transformer = style_text%s), NA)',
+      roxygen_stub, test, extras
+    ),
     "})",
     NULL
   ))