tests/testthat/test-create_tree_priors.R

context("create_tree_priors")

test_that("all tree_priors must be recognized as such", {

  tree_priors <- beautier:::create_tree_priors()
  testthat::expect_true(length(tree_priors) > 1)
  for (tree_prior in tree_priors) {
    testthat::expect_true(is_tree_prior(tree_prior))
  }

})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.