tests/testthat/test-create_tree_priors.R

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

  tree_priors <- create_tree_priors()
  expect_true(length(tree_priors) > 1)
  for (tree_prior in tree_priors) {
    expect_true(is_tree_prior(tree_prior))
  }
})
richelbilderbeek/beastscriptr documentation built on April 9, 2024, 2:28 p.m.