tests/testthat/test-is_ccp_tree_prior.R

context("is_ccp_tree_prior")

test_that("usage", {
  testthat::expect_true(
    is_ccp_tree_prior(
      create_ccp_tree_prior()
    )
  )

  testthat::expect_false(
    is_ccp_tree_prior(
      create_bd_tree_prior()
    )
  )

  testthat::expect_false(
    is_ccp_tree_prior(
      "nonsense"
    )
  )
})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.