tests/testthat/test-create.R

In matt-dray/pico: Create a Pico Package

test_that("wrong input fails", {

  expect_error(create(name = 1, dir = tempdir()))
  expect_error(create(name = TRUE, dir = tempdir()))
  expect_error(create(name = c("x", "y"), dir = tempdir()))
  expect_error(create(name = list("x", "y"), dir = tempdir()))

  expect_error(create(name = "xy", dir = 1))
  expect_error(create(name = "xy", dir = TRUE))
  expect_error(create(name = "xy", dir = c("x", "y")))
  expect_error(create(name = "xy", dir = list("x", "y")))

})

test_that("illegal names fail", {

 expect_error(create(name = "x", dir = tempdir()))
 expect_error(create(name = "1x", dir = tempdir()))
 expect_error(create(name = "x.", dir = tempdir()))
 expect_error(create(name = "x y", dir = tempdir()))
 expect_error(create(name = "x_y", dir = tempdir()))

})

test_that("a non-existent directory fails", {

 expect_error(create(name = "xy", dir = "x"))

})

test_that("valid input passes", {

 expect_output(create(name = "xy", dir = tempdir()))

})

test_that("directory structure is created as expected", {

 unlink(file.path(tempdir(), "xy"), recursive = TRUE)
 create(name = "xy", dir = tempdir())
 expect_equal(list.files(tempdir(), pattern = "^xy$"), "xy")
 expect_equal(list.files(file.path(tempdir(), "xy")), c("DESCRIPTION", "R"))
 expect_equal(list.files(file.path(tempdir(), "xy", "R")), "functions.R")
 unlink(file.path(tempdir(), "xy"), recursive = TRUE)

})

test_that("a negative readline input quits the process", {

 unlink(file.path(tempdir(), "xy"), recursive = TRUE)
 create(name = "xy", dir = tempdir())
 expect_error(create(name = "xy", dir = tempdir()))
 unlink(file.path(tempdir(), "xy"), recursive = TRUE)

})