tests/testthat/test-is_phylogeny.R

In richelbilderbeek/ribir: ribir, basic phylogenetics page

context("is_phylogeny")

test_that("is_phylogeny: use", {
  expect_true(is_phylogeny(ape::rcoal(n = 5)))
  expect_false(is_phylogeny(ape::rmtree(N = 2, n = 10)))
  expect_false(is_phylogeny(42))
  expect_false(is_phylogeny(3.14))
  expect_false(is_phylogeny("Hello"))
  expect_false(is_phylogeny(NULL))
  expect_false(is_phylogeny(NA))
  expect_false(is_phylogeny(Inf))
})