tests/testthat/test-building-application-metadata.R

context("Building application metadata object")

test_that("shinyModule returns a metadata object that is just the name of the module.", {
  aModuleName <- paste(sample(LETTERS, 20), collapse = "")
  expect_equal(aModuleName, shinyModule(aModuleName))
})
PredictiveEcology/SpaDES.shiny documentation built on Nov. 11, 2019, 7:12 p.m.