tests/testthat/test-gpt_annot_plot_branches.R

test_that("gpt_annot_plot_branches works", {

  out <- gpt_annot_plot_branches()
  testthat::expect_true(methods::is(out$plot,"gg"))
  testthat::expect_true(methods::is(out$dat,"data.table"))
  testthat::expect_true(length(unique(out$dat$ancestor_name))<100)
})
neurogenomics/HPOExplorer documentation built on July 17, 2024, 3:12 p.m.