tests/testthat/test-extract_tracelog_filename_from_beast2_input_file.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("all is fine", {
  check_empty_beaustier_folders()

  beast2_input_filename <- get_beastier_tempfilename()
  tracelog_filename <- get_beastier_tempfilename(
    pattern = "trace_", fileext = ".log"
  )
  beautier::create_beast2_input_file_from_model(
    input_filename = beautier::get_beautier_path("test_output_0.fas"),
    output_filename = beast2_input_filename,
    inference_model = create_inference_model(
      mcmc = create_mcmc(
        tracelog = create_tracelog(
          filename = tracelog_filename
        )
      )
    )
  )
  expect_true(file.exists(beast2_input_filename))
  expect_equal(
    tracelog_filename,
    extract_tracelog_filename_from_beast2_input_file(
      input_filename = beast2_input_filename
    )
  )
  file.remove(beast2_input_filename)

  remove_beaustier_folders()
  check_empty_beaustier_folders()
})