tests/testthat/test-make_tiers.R

test_that("make_tiers works", {

  terms <- get_hpo()@terms[seq(100)]
  tiers <- make_tiers(terms = terms)
  testthat::expect_true(all(sort(unique(tiers))==paste0("Tier",seq(4))))
})
neurogenomics/HPOExplorer documentation built on Jan. 11, 2025, 8:40 a.m.