tests/testthat/test-mod_help_server.R

In biodosimetry-uab/biodosetools: An R Shiny Application for Biological Dosimetry

testServer(
  mod_help_chromosome_hot_server,
  # Add here your module params
  args = list(),
  {
    ns <- session$ns
    expect_true(
      inherits(ns, "function")
    )
    expect_true(
      grepl(id, ns(""))
    )
    expect_true(
      grepl("test", ns("test"))
    )
  }
)