tests/testthat/test-msigdbr-collections.R

In msigdbr: MSigDB Gene Sets for Multiple Organisms in a Tidy Data Format

test_that("msigdbr_collections()", {
  chs <- msigdbr_collections(db_species = "Hs")
  expect_identical(chs, msigdbr_collections())
  expect_s3_class(chs, "tbl_df")
  expect_gt(nrow(chs), 10)
  expect_lt(nrow(chs), 30)
  expect_match(chs$gs_collection, "H", fixed = TRUE, all = FALSE)
  expect_match(chs$gs_collection, "C2", fixed = TRUE, all = FALSE)
  expect_match(chs$gs_collection, "C7", fixed = TRUE, all = FALSE)
  expect_match(chs$gs_collection, "C8", fixed = TRUE, all = FALSE)
  cmm <- msigdbr_collections(db_species = "Mm")
  expect_s3_class(cmm, "tbl_df")
  expect_gt(nrow(cmm), 10)
  expect_lt(nrow(cmm), 30)
  expect_match(cmm$gs_collection, "MH", fixed = TRUE, all = FALSE)
  expect_match(cmm$gs_collection, "M8", fixed = TRUE, all = FALSE)
})