tests/testthat/test-create_razzo_mcmc.R

In richelbilderbeek/razzo: The Error if Nature is MBD

test_that("use, generative", {
  folder_name <- peregrine::get_pff_tempfile()
  mcmc <- get_razzo_mcmc(
    model_type = "generative",
    folder_name = folder_name
  )
  expect_equal(
    mcmc$tracelog$filename,
    file.path(folder_name, "mbd_gen.log")
  )
  expect_equal(
    mcmc$treelog$filename,
    file.path(folder_name, "mbd_gen.trees")
  )
})

test_that("use, candidate", {
  folder_name <- peregrine::get_pff_tempfile()
  mcmc <- get_razzo_mcmc(
    model_type = "candidate",
    folder_name = folder_name
  )
  expect_equal(
    mcmc$tracelog$filename,
    file.path(folder_name, "mbd_best.log")
  )
  expect_equal(
    mcmc$treelog$filename,
    file.path(folder_name, "mbd_best.trees")
  )
})