tests/testthat/test-collect_file_posterior_likelihoods.R

In richelbilderbeek/wiritttea: WIRITTTE analysis

context("collect_file_pstr_likelihoods")

test_that("basic use", {

  filename <- wiritttea::find_path("toy_example_3.RDa")
  df <- wiritttea::collect_file_pstr_likelihoods(filename)
  testthat::expect_equal(
    names(df),
    c("sti", "ai", "pi", "si", "likelihood")
  )
  testthat::expect_true(nrow(df) == 88)
})