# library(Characterization)
# library(testthat)

context("addModuleConfig")


test_that("initializeModuleConfig", {
  
  initCon <- initializeModuleConfig()
  
  testthat::expect_true(inherits(initCon$shinyModules, 'list'))
  testthat::expect_equal(length(initCon), 1)
  testthat::expect_equal(length(initCon$shinyModules), 0)
  
})


test_that("addModuleConfig works", {
  
  newCon <- initializeModuleConfig()
  testthat::expect_equal(length(newCon$shinyModules),0)
  
  newCon <- addModuleConfig(
    config = newCon, 
    moduleConfig = list(add=T)
  )
  
  testthat::expect_equal(newCon$shinyModules[[1]], list(add=T, order = 1))
  testthat::expect_equal(length(newCon$shinyModules),1)
  
  newCon <- addModuleConfig(
    config = newCon, 
    moduleConfig = list(second=T)
  )
  
  testthat::expect_equal(newCon$shinyModules[[2]], list(second=T, order = 2))
  testthat::expect_equal(length(newCon$shinyModules),2)

})