tests/testthat/test-is_golem.R

In ThinkR-open/shinytemplate: A Framework for Robust Shiny Applications

test_that("is_golem works", {
  to_create <- grep(
    "^(?!REMOVEME).*",
    list.files(
      system.file("shinyexample", package = "golem"),
      recursive = TRUE
    ),
    perl = TRUE,
    value = TRUE
  )
  run_quietly_in_a_dummy_golem({
     for (file in to_create) {
       file.create(
         file
       )
     }
    expect_true(
      is_golem(".")
    )
  })
  expect_false(
    is_golem(tempdir())
  )
})