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 Aug. 24, 2024, 1:39 a.m.