Install tests with tdd-workflow

R/use_skill_document.R

@@ -26,7 +26,7 @@ use_skill_document <- function(
 
   shared_params_path <- usethis::proj_path("R/aaa-shared_params.R")
   if (!fs::file_exists(shared_params_path)) {
-    .use_template("aaa-shared_params.R", "R/aaa-shared_params.R")
+    .use_template("aaa-shared_params.R", "R/aaa-shared_params.R", open = open)
     .pkg_inform(
       c(
         "{.file R/aaa-shared_params.R} created.",

R/use_skill_r_code.R

@@ -16,22 +16,35 @@ use_skill_r_code <- function(
   overwrite = FALSE,
   open = rlang::is_interactive()
 ) {
-  skill_path <- .use_skill(
+  .use_conditions(overwrite, open)
+  invisible(.use_skill(
     "r-code",
     target_dir = target_dir,
     use_skills_subdir = use_skills_subdir,
     overwrite = overwrite,
     open = open
-  )
+  ))
+}
 
+#' Install the conditions template
+#'
+#' @inheritParams .shared-params
+#' @returns The path to the installed conditions file, invisibly.
+#' @keywords internal
+.use_conditions <- function(overwrite = FALSE, open = rlang::is_interactive()) {
+  usethis::use_package("stbl", min_version = "0.3.0.9000")
   conditions_path <- usethis::proj_path("R/aaa-conditions.R")
-  if (!fs::file_exists(conditions_path)) {
+  if (!fs::file_exists(conditions_path) || overwrite) {
     data <- .get_desc_fields("Package")
-    .use_template("aaa-conditions.R", "R/aaa-conditions.R", data = data)
-    usethis::use_package("stbl", min_version = "0.3.0")
+    .use_template(
+      "aaa-conditions.R",
+      "R/aaa-conditions.R",
+      data = data,
+      open = open
+    )
     .pkg_inform(
       c(
-        "{.file R/aaa-conditions.R} created.",
+        "{.file R/aaa-conditions.R} created or updated.",
         "i" = paste(
           "Use {.fn .pkg_abort} for package errors.",
           "Add more error helpers here as your package grows."
@@ -40,6 +53,4 @@ use_skill_r_code <- function(
       c("shared_file", "conditions")
     )
   }
-
-  invisible(skill_path)
 }

R/use_skill_tdd_workflow.R

@@ -21,7 +21,9 @@ use_skill_tdd_workflow <- function(
       "no_package_field"
     )
   }
-  usethis::use_package("stbl", min_version = "0.3.0")
+  usethis::use_package("stbl", min_version = "0.3.0.9000")
+  usethis::use_testthat()
+  .use_conditions_tests(overwrite, open)
   invisible(.use_skill(
     "tdd-workflow",
     data = list(package = pkg_name),
@@ -31,3 +33,30 @@ use_skill_tdd_workflow <- function(
     open = open
   ))
 }
+
+#' Install the conditions tests template
+#'
+#' @inheritParams .shared-params
+#' @returns The path to the installed test file, invisibly.
+#' @keywords internal
+.use_conditions_tests <- function(
+  overwrite = FALSE,
+  open = rlang::is_interactive()
+) {
+  usethis::use_package("stbl", min_version = "0.3.0.9000")
+  conditions_path <- usethis::proj_path("tests/testthat/test-aaa-conditions.R")
+  if (!fs::file_exists(conditions_path) || overwrite) {
+    data <- .get_desc_fields("Package")
+    .use_template(
+      "test-aaa-conditions.R",
+      "tests/testthat/test-aaa-conditions.R",
+      data = data,
+      open = open
+    )
+    .pkg_inform(
+      "{.file tests/testthat/test-aaa-conditions.R} created or updated.",
+      c("shared_file", "test_conditions")
+    )
+  }
+  invisible(conditions_path)
+}

inst/templates/test-aaa-conditions.R

@@ -0,0 +1,26 @@
+test_that(".pkg_abort works", {
+  stbl::expect_pkg_error_snapshot(
+    .pkg_abort("This is a test error", c("subclass", "test_error")),
+    "{{{Package}}}",
+    "subclass",
+    "test_error"
+  )
+})
+
+test_that(".pkg_warn works", {
+  stbl::expect_pkg_warning_snapshot(
+    .pkg_warn("This is a test warning", c("subclass", "test_warning")),
+    "{{{Package}}}",
+    "subclass",
+    "test_warning"
+  )
+})
+
+test_that(".pkg_inform works", {
+  stbl::expect_pkg_message_snapshot(
+    .pkg_inform("This is a test message", c("subclass", "test_message")),
+    "{{{Package}}}",
+    "subclass",
+    "test_message"
+  )
+})

tests/testthat/_snaps/aaa-conditions.md

@@ -0,0 +1,30 @@
+# .pkg_abort works
+
+    Code
+      (expect_pkg_error_classes(.pkg_abort("This is a test error", c("subclass",
+        "test_error")), "pkgskills", "subclass", "test_error"))
+    Output
+      <error/pkgskills-error-subclass-test_error>
+      Error:
+      ! This is a test error
+
+# .pkg_warn works
+
+    Code
+      (expect_pkg_warning_classes(.pkg_warn("This is a test warning", c("subclass",
+        "test_warning")), "pkgskills", "subclass", "test_warning"))
+    Output
+      <warning/pkgskills-warning-subclass-test_warning>
+      Warning:
+      This is a test warning
+
+# .pkg_inform works
+
+    Code
+      (expect_pkg_message_classes(.pkg_inform("This is a test message", c("subclass",
+        "test_message")), "pkgskills", "subclass", "test_message"))
+    Output
+      <message/pkgskills-message-subclass-test_message>
+      Message:
+      This is a test message
+

tests/testthat/_snaps/use_skill_r_code.md

@@ -1,12 +1,12 @@
-# use_skill_r_code() emits install message (#19, #81)
+# use_skill_r_code() emits messages (#19, #81)
 
     Code
       (expect_pkg_message_classes({
         expect_message(use_skill_r_code(open = FALSE), class = "pkgskills-message-ai_implementation-skill")
       }, "pkgskills", "shared_file", "conditions"))
     Output
       <message/pkgskills-message-shared_file-conditions>
-      Message in `use_skill_r_code()`:
-      'R/aaa-conditions.R' created.
+      Message in `.use_conditions()`:
+      'R/aaa-conditions.R' created or updated.
       i Use `.pkg_abort()` for package errors. Add more error helpers here as your package grows.
 

tests/testthat/_snaps/use_skill_tdd_workflow.md

@@ -1,9 +1,13 @@
-# use_skill_tdd_workflow() emits inform message (#11, #52)
+# use_skill_tdd_workflow() emits messages (#11, #52, #97)
 
     Code
-      use_skill_tdd_workflow(open = FALSE)
-    Message
-      Skill '.github/skills/tdd-workflow/SKILL.md' installed.
+      (expect_pkg_message_classes({
+        expect_message(use_skill_tdd_workflow(open = FALSE), class = "pkgskills-message-ai_implementation-skill")
+      }, "pkgskills", "shared_file", "test_conditions"))
+    Output
+      <message/pkgskills-message-shared_file-test_conditions>
+      Message in `.use_conditions_tests()`:
+      'tests/testthat/test-aaa-conditions.R' created or updated.
 
 # use_skill_tdd_workflow() errors when Package field is absent (#11)
 

tests/testthat/test-aaa-conditions.R

@@ -0,0 +1,26 @@
+test_that(".pkg_abort works", {
+  stbl::expect_pkg_error_snapshot(
+    .pkg_abort("This is a test error", c("subclass", "test_error")),
+    "pkgskills",
+    "subclass",
+    "test_error"
+  )
+})
+
+test_that(".pkg_warn works", {
+  stbl::expect_pkg_warning_snapshot(
+    .pkg_warn("This is a test warning", c("subclass", "test_warning")),
+    "pkgskills",
+    "subclass",
+    "test_warning"
+  )
+})
+
+test_that(".pkg_inform works", {
+  stbl::expect_pkg_message_snapshot(
+    .pkg_inform("This is a test message", c("subclass", "test_message")),
+    "pkgskills",
+    "subclass",
+    "test_message"
+  )
+})

tests/testthat/test-use_skill_r_code.R

@@ -16,7 +16,7 @@ test_that("use_skill_r_code() returns path invisibly (#19)", {
   )
 })
 
-test_that("use_skill_r_code() emits install message (#19, #81)", {
+test_that("use_skill_r_code() emits messages (#19, #81)", {
   local_pkg()
   stbl::expect_pkg_message_snapshot(
     {

tests/testthat/test-use_skill_tdd_workflow.R

@@ -34,9 +34,19 @@ test_that("use_skill_tdd_workflow() renders package name into skill file (#11)",
   expect_false(any(grepl("\\{\\{\\{package\\}\\}\\}", content)))
 })
 
-test_that("use_skill_tdd_workflow() emits inform message (#11, #52)", {
+test_that("use_skill_tdd_workflow() emits messages (#11, #52, #97)", {
   local_pkg()
-  expect_snapshot(use_skill_tdd_workflow(open = FALSE))
+  stbl::expect_pkg_message_snapshot(
+    {
+      expect_message(
+        use_skill_tdd_workflow(open = FALSE),
+        class = "pkgskills-message-ai_implementation-skill"
+      )
+    },
+    "pkgskills",
+    "shared_file",
+    "test_conditions"
+  )
 })
 
 test_that("use_skill_tdd_workflow() errors when Package field is absent (#11)", {