tests/testthat/test-createResultDatabaseSettings.R

In OhdsiShinyAppBuilder: Viewing Observational Health Data Sciences and Informatics Results via 'shiny' Modules

# library(Characterization)
# library(testthat)

context("createDefaultResultDatabaseSettings")


test_that("initializeModuleConfig", {
  
  settings <- createDefaultResultDatabaseSettings('tester')
  
  testthat::expect_equal(settings$schema, 'tester')
  
  testthat::expect_true("cgTablePrefix" %in% names(settings))
  testthat::expect_true("cmTablePrefix" %in% names(settings))
  testthat::expect_true("cdTablePrefix" %in% names(settings))
  testthat::expect_true("plpTablePrefix" %in% names(settings))
  testthat::expect_true("sccsTablePrefix" %in% names(settings))
  testthat::expect_true("esTablePrefix" %in% names(settings))
  testthat::expect_true("incidenceTablePrefix" %in% names(settings))
  testthat::expect_true("cTablePrefix" %in% names(settings))
})