tests/testthat/test-s_parameter_to_xml.R

In richelbilderbeek/beastscriptr: 'BEAUti' from R

test_that("minimal use", {
  expect_silent(
    s_parameter_to_xml(
      create_s_param(id = 1),
      beauti_options = create_beauti_options()
    )
  )
})

test_that("reproduce same as in BEAUti v2.4 file", {
  xml <- readr::read_lines(beautier::get_beautier_path("tn93_2_4.xml"))
  expected <- unindent(stringr::str_subset(xml, "RealParameter.4.*name=.S."))
  created <- s_parameter_to_xml(
    create_s_param(id = 4, value = 1.25),
    beauti_options = create_beauti_options_v2_4()
  )
  expect_equal(created, expected)
})

test_that("reproduce same as in BEAUti v2.6 file", {
  xml <- readr::read_lines(
    beautier::get_beautier_path("issue_135_no_mrca_no_estimate_beauti.xml")
  )
  expected <- unindent(stringr::str_subset(xml, "name=.S."))
  created <- s_parameter_to_xml(
    create_s_param(id = 2, value = 1.25),
    beauti_options = create_beauti_options_v2_6()
  )
  expect_equal(created, expected)
})