tests/testthat/test-splitEnrichment.R

In ncborcherding/escape: Easy single cell analysis platform for enrichment

# test script for splitEnrichment.R - testcases are NOT comprehensive!

test_that("splitEnrichment works", {
  
  seuratObj <- getdata("runEscape", "pbmc_small_ssGSEA")
  
  expect_doppelganger(
    "splitEnrichment_default_plot",
    splitEnrichment(
      seuratObj, 
      split.by = "groups",
      assay = "escape",
      gene.set = "Tcells"
    )
  )

  expect_doppelganger(
    "splitEnrichment_mean_plot",
    splitEnrichment(
      seuratObj, 
      order.by = "mean",
      split.by = "groups",
      assay = "escape",
      gene.set = "Tcells"
    )
  )
  
  expect_doppelganger(
    "splitEnrichment_facet_plot",
    splitEnrichment(
      seuratObj, 
      split.by = "groups",
      facet.by = "letter.idents",
      assay = "escape",
      gene.set = "Tcells"
    )
  )
  
})