tests/testthat/test-object.R

test_that("create_hub works", {
  tree <- system.file("extdata", "tree_of_itol_templates.tree", package = "itol.toolkit")
  hub <- create_hub(tree = tree)
  expect_equal(hub@tree$main$Nnode,22)
})

Try the itol.toolkit package in your browser

Any scripts or data that you put into this service are public.

itol.toolkit documentation built on Nov. 18, 2023, 5:11 p.m.