tests/testthat/test_other_file_create.R

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

context("Test Other Files Created")

test_directory <- fs::path_expand(file.path("~", 'other_files'))
if (dir.exists(test_directory)) {
    unlink(test_directory, recursive = TRUE)
}
usethis::proj_set(test_directory, force = TRUE)
cookiecutteR:::create_file_structure(test_directory, FALSE)

test_that('Check MakeFile Exists',{

          cookiecutteR:::create_makefile(test_directory)
          expect_true("Makefile" %in% list.files(test_directory))
})

test_that('Here File Exists', {
    cookiecutteR:::create_here_file(test_directory)
    expect_true(file.exists(file.path(test_directory, '.here')))
})

test_that('Readme Files Exists', {
    cookiecutteR:::create_readme(test_directory)
    expect_true(file.exists(file.path(test_directory, 'README.Rmd')))
})


unlink(test_directory, recursive = TRUE)