tests/testthat/test_infrastructure.R

In c5sire/ciptools: Tools to Help R Development at CIP

context("infrastructure")

td <- tempdir()
unlink(file.path(td, "R"))

test_that("check R directory", {
  expect_that(has_r(), is_false())
  expect_that(has_r(td), is_false())
  dir.create(file.path(td, "R"))
  expect_that(has_r(td), is_true())
})

test_that("chck DESCRIPTION file", {
  expect_that(has_description(td), is_false())
  # new_description() expect_that(has_description(td), is_true())
})

test_that("check inst directory", {
  # #5
  expect_that(has_inst(td), is_false())
  dir.create(file.path(td, "inst"))
  expect_that(has_inst(td), is_true())
})

test_that("format_r works", {
  # #2
})