tests/testthat/test-plot_components.R

In ahnjedid/MetaConIdentifier: Metadata Confounding Identifier

test_that("Input is not an expoOutput object.", {
  ca_info <- run_ca(tcga_meta_clean)
  ca_obj <- ca_info$ca_obj
  class(ca_obj) <- "list"

  expect_error(
    plot_components(ca_obj),
    "ca_obj is not an ExPosition object. Cannot display plot components."
    )
})