tests/testthat/test-add_resource_path.R

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

test_that("add_resource_path", {
  expect_warning(
    add_resource_path(
      "",
      "",
      warn_empty = TRUE
    )
  )
  res <- add_resource_path(
    "xyz",
    directoryPath = golem_sys("utils"),
    warn_empty = TRUE
  )
  expect_equal(
    normalizePath(
      res$directoryPath,
      winslash = "/"
    ),
    normalizePath(
      golem_sys("utils"),
      winslash = "/"
    )
  )
})