# Copyright © 2022 University of Kansas. All rights reserved.
#
# Creative Commons Attribution NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0)

.testHTML_rawDataModuleUI <- function(...) {
  shiny:::withPrivateSeed(set.seed(100))
  rawDataModuleUI(...)
}

testthat::test_that("shiny rawDataModuleUI creates expected HTML", {
  skip_if_no_pygt3x()
  expect_snapshot(.testHTML_rawDataModuleUI("rawDataModule"))

})

.testHTML_countsModuleUI <- function(...) {
  shiny:::withPrivateSeed(set.seed(100))
  countsModuleUI(...)
}

testthat::test_that("shiny countsModuleUI creates expected HTML", {
  skip_if_no_pygt3x()
  expect_snapshot(.testHTML_countsModuleUI("countsModule"))

})


.testHTML_compareCountsModuleUI <- function(...) {
  shiny:::withPrivateSeed(set.seed(100))
  compareCountsModuleUI(...)
}

testthat::test_that("shiny compareCountsModuleUI creates expected HTML", {
  skip_if_no_pygt3x()
  expect_snapshot(.testHTML_compareCountsModuleUI("compareCountsModule"))

})