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 = "."