test: adding tests that it fails if the dir_create arg is provided

ThinkR-open · Sep 6, 2024 · 44b6ef2 · 44b6ef2
1 parent c157318
commit 44b6ef2
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/tests/testthat/test-add_files.R b/tests/testthat/test-add_files.R
@@ -20,6 +20,13 @@ test_add_file <- function(
   )
   unlink(output)
   expect_error(fun())
+  expect_error(
+    fun(
+      file_sans_extension,
+      open = FALSE,
+      dir_create = TRUE
+    )
+  )
   fun(
     file_sans_extension,
     open = FALSE

diff --git a/tests/testthat/test-use_files.R b/tests/testthat/test-use_files.R
@@ -16,6 +16,13 @@ test_that(
           mapply(
             function(fun, ext) {
               unlink(paste0("this.", ext))
+              expect_error({
+                fun(
+                  url = paste0("this.", ext),
+                  pkg = ".",
+                  dir_create = TRUE
+                )
+              })
               path_to_file <- fun(
                 url = paste0("this.", ext),
                 pkg = "."