tests/testthat/test-get_alignment_ids.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("use", {

  expect_equal(
    get_alignment_ids_from_xml_filename(get_beastier_path("2_4.xml")),
    c("test_output_0")
  )
  expect_equal(
    get_alignment_ids_from_xml_filename(get_beastier_path("anthus_2_4.xml")),
    c("Anthus_nd2", "Anthus_aco")
  )

})

test_that("use", {

  expect_error(
    get_alignment_ids_from_xml_filename("abs.ent"),
    "'xml_filename' must be the name of an existing file"
  )

})