tests/testthat/test-is_posterior.R

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

context("is_posterior")

test_that("detect posterior", {

  trees_filename <- system.file(
    "extdata", "beast2_example_output.trees", package = "RBeast"
  )
  testit::assert(file.exists(trees_filename))

  log_filename <- system.file(
    "extdata", "beast2_example_output.log", package = "RBeast"
  )
  testit::assert(file.exists(log_filename))

  posterior <- RBeast::parse_beast_posterior(
    trees_filename = trees_filename,
    log_filename = log_filename
  )
  testthat::expect_true(is_posterior(posterior))

})

test_that("detect non-posteriors", {

  testthat::expect_false(
    RBeast::is_posterior("nonsense")
  )

  testthat::expect_false(
    RBeast::is_posterior(list("estimates" = NA,  "nonsense" = NA))
  )
  testthat::expect_false(
    RBeast::is_posterior(list("trees" = NA,  "nonsense" = NA))
  )

  testthat::expect_true(
    RBeast::is_posterior(list("trees" = NA,  "estimates" = NA))
  )

})