mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-16 09:36:48 -05:00
32 lines
946 B
R
32 lines
946 B
R
|
|
context("app")
|
|
|
|
test_that("helpers are loaded", {
|
|
shiny:::loadHelpers("../test-helpers/app1-standard")
|
|
expect_equal(helper1, 123)
|
|
expect_equal(helper2, "abc")
|
|
})
|
|
|
|
test_that("nested helpers are loaded", {
|
|
shiny:::loadHelpers("../test-helpers/app2-nested")
|
|
expect_equal(helper1, 456)
|
|
expect_equal(helper2, "def")
|
|
})
|
|
|
|
test_that("lower-case helper dir is loaded", {
|
|
shiny:::loadHelpers("../test-helpers/app3-lowercase")
|
|
expect_equal(helper1, 789)
|
|
})
|
|
|
|
test_that("app with both r/ and R/ prefers R/", {
|
|
## App 4 already has a lower-case r/ directory. Try to create an upper.
|
|
tryCatch(dir.create("../test-helpers/app4-both/R"),
|
|
warning=function(w){testthat::skip("File system is not case-sensitive")})
|
|
writeLines("upperHelper <- 'abc'", file.path("../test-helpers/app4-both/R", "upper.R"))
|
|
|
|
shiny:::loadHelpers("../test-helpers/app4-both")
|
|
|
|
expect_false(exists("lowerHelper"))
|
|
expect_equal(upperHelper, "abc")
|
|
})
|