tests/testthat/test-cellsPerGeneFusion.R

test_that("cellsPerGeneFusion", {
    object <- celloFull
    df <- cellsPerGeneFusion(object)
    expect_s4_class(df, "DFrame")
    expect_null(cellsPerGeneFusion(object, minCells = nrow(object) + 1L))
})
acidgenomics/Cellosaurus documentation built on March 15, 2024, 1:28 a.m.