tests/testthat/test_directory_create.R

In warlicks/cookiecutteR: What the Package Does (One Line, Title Case)

library(testthat)

context("Test That The Project Directory is Created")

# Set Up For Test
expected_structure <- c("", "data", "data/external", "data/interim",
                        "data/processed", "data/raw", "man", "models",
                        "notebooks", "R", "references", "reports",
                        "reports/figures", "tests", "tests/testthat")

# Create New Project
test_dir <- fs::path_expand(file.path("~", "test_project"))

# Clean UP From Past Tests.
if (dir.exists(test_dir)) {
    unlink(test_dir, recursive = TRUE, force = TRUE)
    }

usethis::proj_set(test_dir, force = TRUE)
cookiecutteR:::create_file_structure(test_dir, FALSE)

# Run the Test
test_that('Check that file directory matches expected directory',
    expect_setequal(list.dirs(test_dir, full.names = FALSE), expected_structure)
)

# test_that("An error occurs if we try to create the directory again",
#     expect_error(cookiecutteR:::create_file_structure(test_dir)
#                  )
#     )

# Clean Up
unlink(test_dir, recursive = TRUE, force = TRUE)