tests/testthat/test-get_hpo.R

test_that("get_hpo works", {

  testthat::expect_false("hpo" %in% ls())
  hpo <- get_hpo()
  items <- ls()
  testthat::expect_true("hpo" %in% ls())
  testthat::expect_true(methods::is(hpo,"ontology_DAG"))
})
neurogenomics/HPOExplorer documentation built on Jan. 11, 2025, 8:40 a.m.