tests/testthat/test_getSampleTileMatrix.R

In MOCHA: Modeling for Single-Cell Open Chromatin Analysis

test_that("getSampleTileMatrices works on a 1 sample test dataset", {
  cellPopulations <- c("C2", "C5")

  capture.output(
    tilemat <- MOCHA::getSampleTileMatrix(
      MOCHA:::testTileResults,
      cellPopulations = cellPopulations,
      threshold = 0
    ),
    type = "message"
  )

  expect_s4_class(
    tilemat,
    "RangedSummarizedExperiment"
  )

  expect_snapshot_value(
    dim(tilemat),
    style = "json2"
  )

  expect_equal(
    names(SummarizedExperiment::assays(tilemat)),
    c("C2", "C5")
  )

  expect_snapshot_output(
    S4Vectors::metadata(tilemat)
  )

  expect_snapshot_output(
    SummarizedExperiment::colData(tilemat)
  )
})