tests/testthat/test-phylo_check.R

In palaeoverse: Prepare and Explore Data for Palaeobiological Analyses

test_that("phylo_check() works", {
  skip_if_not_installed("paleotree")
  library(paleotree)
  data(RaiaCopesRule)
  tree <- ceratopsianTreeRaia
  list <- c("Nasutoceratops_titusi", "Diabloceratops_eatoni",
            "Zuniceratops_christopheri", "Psittacosaurus_major",
            "Psittacosaurus_sinensis", "Avaceratops_lammersi",
            "Xenoceratops_foremostensis", "Leptoceratops_gracilis",
            "Triceratops_horridus", "Triceratops_prorsus")

  #expect equal
  expect_equal(nrow(phylo_check(tree, list)), 40)
  expect_equal(nrow(phylo_check(tree, list, out = "diff_table")), 33)
  expect_equal(nrow(phylo_check(tree, list, out = "counts")), 3)
  expect_equal(nrow(phylo_check(tree, list = "PsiTTacOsaurUs sinEnsIs",
                                out = "full_table")), 37)

  #expect true
  expect_true(is.data.frame(phylo_check(tree, list)))
  expect_true(is.data.frame(phylo_check(tree, list, out = "counts")))
  expect_true(inherits(phylo_check(tree, list, out = "tree"), "phylo"))

  #expect error
  expect_error(phylo_check())
  expect_error(phylo_check(tree))
  expect_error(phylo_check(tree = list))
  expect_error(phylo_check(tree = tree, list = tree))
  expect_error(phylo_check(tree, list, out = "test"))
  expect_error(phylo_check(tree, list, sort = "test"))
  expect_error(phylo_check(tree, list = "."))
})