longtests/testthat/test-tnbc.R

test_that("tnbc", {
    object <- celloFull
    skip_if_not(identical(
        x = metadata(object)[["dataVersion"]],
        y = dataVersion
    ))
    expect_length(tnbc(object), 161L)
})
acidgenomics/Cellosaurus documentation built on March 15, 2024, 1:28 a.m.