context("is_trees_posterior")
test_that("can find is_trees_posterior_test.R", {
filename <- get_tracerer_path("beast2_example_output.trees")
file_exists <- file.exists(filename)
expect_true(file_exists)
})
test_that("can create a posterior", {
filename <- get_tracerer_path("beast2_example_output.trees")
posterior <- parse_beast_trees(filename)
expect_true(is_trees_posterior(posterior))
})
test_that("can create a posterior with length 10", {
filename <- get_tracerer_path("beast2_example_output.trees")
posterior <- parse_beast_trees(filename)
expect_equal(length(posterior), 11)
})
test_that("can detect an invalid posterior, basic types", {
expect_true(!is_trees_posterior(42))
expect_true(!is_trees_posterior(3.14))
expect_true(!is_trees_posterior("Hello world"))
expect_true(!is_trees_posterior(ape::rcoal(n = 2)))
})
test_that("can detect an invalid posterior, list", {
# Putting posteriors in a list must yield an invalid BEAST posterior
filename <- get_tracerer_path("beast2_example_output.trees")
posterior <- parse_beast_trees(filename)
not_posteriors <- c(list(posterior), list(posterior))
expect_equal(length(not_posteriors), 2)
expect_true(!is_trees_posterior(not_posteriors))
})
test_that("is_trees_posterior: abuse", {
expect_false(
is_trees_posterior(x = 42)
)
expect_false(
is_trees_posterior(x = list(42, 314))
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.