tests/testthat/test-module_databasetab.R

context("test-module_databasetab")

set.seed(42)
suppressWarnings(
a <- ghosts::databaseTabUIFunc(function(x)x)
)
test_that("multiplication works", {
  testthat::expect_equal(class(a), c("shiny.tag.list", "list"))
})
chasemc/ghosts documentation built on May 8, 2019, 12:50 a.m.