tests/testthat/test-topology_stats.R

In treestats: Phylogenetic Tree Statistics

context("topology_stats")

test_that("usage", {
  testthat::skip_on_cran() # these tests take very long
  set.seed(42)
  focal_tree <- ape::rphylo(n = 16, birth = 1, death = 0)

  testthat::expect_invisible(
    all_stats <- treestats::calc_topology_stats(focal_tree)
  )
  testthat::expect_equal(length(all_stats), 40)

  testthat::expect_invisible(
    all_stats <- treestats::calc_topology_stats(focal_tree,
                                               normalize = TRUE)
  )
  testthat::expect_equal(length(all_stats), 40)
})