From 78b062ec2e48dddfac5085914d630db6dbb901c3 Mon Sep 17 00:00:00 2001
From: colin <colin@thinkr.fr>
Date: Fri, 6 Sep 2024 13:07:20 +0200
Subject: [PATCH] test: adding tests that it fails if the dir_create arg is
 provided

---
 tests/testthat/test-add_files.R | 7 +++++++
 tests/testthat/test-use_files.R | 7 +++++++
 2 files changed, 14 insertions(+)

diff --git a/tests/testthat/test-add_files.R b/tests/testthat/test-add_files.R
index e55ee390..11466c40 100644
--- 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
index 693408a9..bc86f0da 100644
--- 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 = "."