tests/testthat/test-app_ui.R

In CDU-data-science-team/experiencesdashboard: Patient Experiences Dashboard

# app_ui ----
test_that("app_ui works", {
  expect_snapshot(app_ui("id"))
})

# mod_click_tables_ui ----
test_that("mod_click_tables_ui works", {
  expect_snapshot(mod_click_tables_ui("id"))
})

# mod_data_management_ui ----
test_that("mod_data_management_ui works", {
  expect_snapshot(mod_data_management_ui("id"))
})

# mod_demographics_ui ----
test_that("mod_demographics_ui works", {
  expect_snapshot(mod_demographics_ui("id"))
})

# mod_documentation_page_ui ----
test_that("mod_documentation_page_ui works", {
  expect_snapshot(mod_documentation_page_ui("id"))
})

# mod_trend_overlap_ui ----
test_that("mod_trend_overlap_ui works", {
  expect_snapshot(mod_trend_overlap_ui("id"))
})

# mod_patient_experience_ui ----
test_that("mod_patient_experience_ui works", {
  expect_snapshot(mod_patient_experience_ui("id"))
})

# mod_trend_ui ----
test_that("mod_trend_ui works", {
  expect_snapshot(mod_trend_ui("id"))
})

# mod_report_builder_ui ----
test_that("mod_complex_comments_ui works", {
  expect_snapshot(mod_complex_comments_ui("id"))
})

# mod_search_text_ui ----
test_that("mod_search_text_ui works", {
  expect_snapshot(mod_search_text_ui("id"))
})

# mod_summary_record_ui ----
test_that("mod_summary_record_ui works", {
  expect_snapshot(mod_summary_record_ui("id"))
})

# mod_comment_download_ui ----
test_that("mod_comment_download_ui works", {
  ui <- mod_comment_download_ui(id = "test")
  # `ui` has class function not a shiny taglist
  expect_true(
    inherits(ui, "function")
  )
  # Check that formals have not been removed
  fmls <- formals(mod_comment_download_ui)
  for (i in c("id")) {
    expect_true(i %in% names(fmls))
  }
})