tests/testthat/test-getStableGenes.R

context('test generic getStableGenes function')

test_that(("Test different types"), {
  expect_length(getStableGenes(5), 5)
  expect_length(getStableGenes(5, type = 'blood'), 5)
  expect_length(getStableGenes(5, id = 'ensembl'), 5)
  expect_warning(getStableGenes(1e5))
  expect_warning(getStableGenes(1e5, type = 'blood'))
  expect_match(getStableGenes(5, id = 'ensembl'), '^ENSG')
})
DavisLaboratory/singscore documentation built on July 5, 2023, 9:58 a.m.