tests/testthat/test-moduleNavbarWidget.R

In Rapporteket/rapbase: Base Functions and Resources for Rapporteket

## store current instance and set temporary config
currentConfigPath <- Sys.getenv("R_RAP_CONFIG_PATH")
currentInstance <- Sys.getenv("R_RAP_INSTANCE")

# make pristine and dedicated config to avoid interference with other tests
Sys.setenv(R_RAP_INSTANCE = "DEV")
Sys.setenv(R_RAP_CONFIG_PATH = file.path(tempdir(), "navbarWidgetTesting"))
dir.create(Sys.getenv("R_RAP_CONFIG_PATH"))
file.copy(
  system.file(c("rapbaseConfig.yml", "dbConfig.yml", "autoReport.yml"),
    package = "rapbase"
  ),
  Sys.getenv("R_RAP_CONFIG_PATH")
)

registryName <- "rapbase"

test_that("navbar widget input returns a shiny tag list", {
  expect_true("shiny.tag.list" %in% class(navbarWidgetInput("id")))
})


test_that("module navbar widget server returns output", {
  shiny::testServer(navbarWidgetServer, args = list(
    orgName = registryName,
    caller = "rapbase"
  ), {
    expect_equal(output$name, "Tore Tester")
    expect_equal(class(output$affiliation), "character")
    session$setInputs(userInfo = 1)
  })
})


test_that("test app returns an app object", {
  expect_equal(class(navbarWidgetApp()), "shiny.appobj")
})


## new widget for shinyproxy container instances
file.copy(
  system.file("extdata/accesstree.json", package = "rapbase"),
  Sys.getenv("R_RAP_CONFIG_PATH")
)

with_envvar(
  new = c(
    "R_RAP_INSTANCE" = "QAC",
    "SHINYPROXY_USERNAME" = "ttesterc",
    "SHINYPROXY_USERGROUPS" = "rapbase,rapbase,utils,utils",
    "USERORGID" = "[1, 2, 3, 4]",
    "USERFULLNAME" = "Tore Tester Container"
  ),
  code = {

    test_that("shinyproxy-like module navbar widget server returns output", {
      shiny::testServer(navbarWidgetServer2, args = list(
        orgName = registryName,
        caller = "rapbase"
      ), {
        expect_equal(output$name, "Tore Tester Container")
        expect_equal(class(output$affiliation), "character")
        session$setInputs(userInfo = 1)
        session$setInputs(selectOrganization = 1, unit = 1)
        expect_equal(rv$name, "ttesterc")
        expect_equal(rv$fullName, "Tore Tester Container")
        expect_equal(rv$group, "rapbase")
        expect_equal(rv$unit, "1")
        expect_equal(rv$org, "100082")
        expect_equal(rv$role, "LU")
      })
    })
  }
)

# Restore instance
Sys.setenv(R_RAP_INSTANCE = currentInstance)
Sys.setenv(R_RAP_CONFIG_PATH = currentConfigPath)