tests/testthat/test-set_here.R

In r-lib/here: A Simpler Way to Find Your Files

test_that("set_here() creates file", {
  local_project()

  expect_message(set_here(path = here()), "[Cc]reated file")
  expect_true(file.exists(here(".here")))
  expect_message(set_here(path = here()), "already exists")
})