Merge pull request #1111 from MichaelChirico/split-roxygen-exec

IndrajeetPatil · web-flow · commit d6fee24545a7 · 2023-12-03T18:58:18.000+01:00
Add a script for generating many roxygen-examples-complete tests, apply it
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -7,6 +7,7 @@
 ^README-.*\.png$
 ^README\.Rmd$
 ^\.Rproj\.user$
+^\.dev$
 ^\.github$
 ^\.gitsum$
 ^\.lintr$
diff --git a/tests/dev/gen_roxygen_tests.R b/tests/dev/gen_roxygen_tests.R
@@ -0,0 +1,28 @@
+#!/usr/bin/Rscript
+# execute from package TLD: ./tests/dev/gen_roxygen_tests.R
+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"
+
+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_%s(test_collection("%s", "^%s-", transformer = style_text%s), %s)',
+      condition[1L], roxygen_stub, test, extras, condition[2L]
+    ),
+    "})",
+    NULL
+  ))
+}
diff --git a/tests/testthat/test-roxygen-examples-complete-01.R b/tests/testthat/test-roxygen-examples-complete-01.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 01", {
+  expect_warning(test_collection("roxygen-examples-complete", "^01-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-02.R b/tests/testthat/test-roxygen-examples-complete-02.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 02", {
+  expect_warning(test_collection("roxygen-examples-complete", "^02-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-03.R b/tests/testthat/test-roxygen-examples-complete-03.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 03", {
+  expect_warning(test_collection("roxygen-examples-complete", "^03-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-04.R b/tests/testthat/test-roxygen-examples-complete-04.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 04", {
+  expect_warning(test_collection("roxygen-examples-complete", "^04-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-05.R b/tests/testthat/test-roxygen-examples-complete-05.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 05", {
+  expect_warning(test_collection("roxygen-examples-complete", "^05-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-06.R b/tests/testthat/test-roxygen-examples-complete-06.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 06", {
+  expect_warning(test_collection("roxygen-examples-complete", "^06-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-07.R b/tests/testthat/test-roxygen-examples-complete-07.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 07", {
+  expect_warning(test_collection("roxygen-examples-complete", "^07-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-08.R b/tests/testthat/test-roxygen-examples-complete-08.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 08", {
+  expect_warning(test_collection("roxygen-examples-complete", "^08-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-09.R b/tests/testthat/test-roxygen-examples-complete-09.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 09", {
+  expect_warning(test_collection("roxygen-examples-complete", "^09-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-10.R b/tests/testthat/test-roxygen-examples-complete-10.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 10", {
+  expect_warning(test_collection("roxygen-examples-complete", "^10-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-11.R b/tests/testthat/test-roxygen-examples-complete-11.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 11", {
+  expect_warning(test_collection("roxygen-examples-complete", "^11-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-12.R b/tests/testthat/test-roxygen-examples-complete-12.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 12", {
+  expect_warning(test_collection("roxygen-examples-complete", "^12-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-13.R b/tests/testthat/test-roxygen-examples-complete-13.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 13", {
+  expect_warning(test_collection("roxygen-examples-complete", "^13-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-14.R b/tests/testthat/test-roxygen-examples-complete-14.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 14", {
+  expect_warning(test_collection("roxygen-examples-complete", "^14-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-15.R b/tests/testthat/test-roxygen-examples-complete-15.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 15", {
+  expect_warning(test_collection("roxygen-examples-complete", "^15-", transformer = style_text, scope = "spaces"), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-16.R b/tests/testthat/test-roxygen-examples-complete-16.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 16", {
+  expect_warning(test_collection("roxygen-examples-complete", "^16-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-17.R b/tests/testthat/test-roxygen-examples-complete-17.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 17", {
+  expect_warning(test_collection("roxygen-examples-complete", "^17-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-18.R b/tests/testthat/test-roxygen-examples-complete-18.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 18", {
+  expect_warning(test_collection("roxygen-examples-complete", "^18-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-19.R b/tests/testthat/test-roxygen-examples-complete-19.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 19", {
+  expect_warning(test_collection("roxygen-examples-complete", "^19-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-20.R b/tests/testthat/test-roxygen-examples-complete-20.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 20", {
+  expect_warning(test_collection("roxygen-examples-complete", "^20-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-21.R b/tests/testthat/test-roxygen-examples-complete-21.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 21", {
+  expect_warning(test_collection("roxygen-examples-complete", "^21-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-22.R b/tests/testthat/test-roxygen-examples-complete-22.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 22", {
+  expect_warning(test_collection("roxygen-examples-complete", "^22-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-23.R b/tests/testthat/test-roxygen-examples-complete-23.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 23", {
+  expect_error(test_collection("roxygen-examples-complete", "^23-", transformer = style_text), "issues/1242")
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-24.R b/tests/testthat/test-roxygen-examples-complete-24.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 24", {
+  expect_warning(test_collection("roxygen-examples-complete", "^24-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-25.R b/tests/testthat/test-roxygen-examples-complete-25.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 25", {
+  expect_warning(test_collection("roxygen-examples-complete", "^25-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-26.R b/tests/testthat/test-roxygen-examples-complete-26.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 26", {
+  expect_warning(test_collection("roxygen-examples-complete", "^26-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-27.R b/tests/testthat/test-roxygen-examples-complete-27.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 27", {
+  expect_warning(test_collection("roxygen-examples-complete", "^27-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-28.R b/tests/testthat/test-roxygen-examples-complete-28.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 28", {
+  expect_warning(test_collection("roxygen-examples-complete", "^28-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete-29.R b/tests/testthat/test-roxygen-examples-complete-29.R
@@ -0,0 +1,5 @@
+# NB: DO NOT EDIT. Auto-generated by .dev/gen_roxygen_tests.R.
+
+test_that("analogous to test-roxygen-examples-complete: 29", {
+  expect_warning(test_collection("roxygen-examples-complete", "^29-", transformer = style_text), NA)
+})
diff --git a/tests/testthat/test-roxygen-examples-complete.R b/tests/testthat/test-roxygen-examples-complete.R
