tests/testthat/test-read_beast2_trees.R

In beast-dev/RBeast: Create BEAST and BEAST2 input files and parse their output

context("read_beast2_trees")

test_that("read_beast2_trees: use", {
  trees_file <- system.file(
    "extdata", "read_beast2_trees_example.trees", package = "RBeast"
  )
  expect_true(file.exists(trees_file))
  posterior <- read_beast2_trees(trees_file)
  expect_equal(length(posterior), 11)
  expect_equal(class(posterior[[1]]), "phylo")
})