tests/testthat/test-is_tree_prior_name.R

context("is_tree_prior_name")

test_that("basic usage", {

  testthat::expect_false(is_tree_prior_name("nonsense"))
  testthat::expect_true(is_tree_prior_name("yule"))
  testthat::expect_true(is_tree_prior_name("birth_death"))
  testthat::expect_true(
    is_tree_prior_name("coalescent_constant_population"))

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