tests/testthat/test-extract_treelog_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()
  beautier::create_beast2_input_file_from_model(
    input_filename = beautier::get_beautier_path("test_output_0.fas"),
    output_filename = beast2_input_filename
  )
  expect_true(file.exists(beast2_input_filename))
  expect_equal(
    "test_output_0.trees",
    extract_treelog_filename_from_beast2_input_file(
      input_filename = beast2_input_filename
    )
  )
  file.remove(beast2_input_filename)

  remove_beaustier_folders()
  check_empty_beaustier_folders()
})