tests/testthat/test-mod_main_pipeline.R

In Coayala/MetaboTandem: Analysis and Visualization of LC-MS/MS Data

test_that("module ui works", {
  ui <- mod_main_pipeline_ui(id = "test")
  golem::expect_shinytaglist(ui)
  # Check that formals have not been removed
  fmls <- formals(mod_main_pipeline_ui)
  for (i in c("id")){
    expect_true(i %in% names(fmls))
  }
})