tests/testthat/test-package.R

In poissonconsulting/skeletonpkg: Skeleton Package

context("package")

test_that("package", {

  user <- "user"

  expect_false(is.named(user))
  names(user) <- user
  expect_true(is.named(user))

  dir <- file.path(tempdir(), "temp")
  dir.create(dir)
  expect_true(ps_create_dir(dir))

  dir <- file.path(tempdir(), "temp")
  dir.create(dir)
  expect_true(ps_create_dir(dir))
})