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