tests/testthat/test-create_beauti_options_v2_6.R

In richelbilderbeek/beastscriptr: 'BEAUti' from R

test_that("use", {
  beauti_options <- create_beauti_options_v2_6()
  expect_true(is_beauti_options(beauti_options))
  expect_silent(check_beauti_options(beauti_options))
})

test_that("use", {
  beauti_options <- create_beauti_options_v2_6(
    namespace = "beast.core:beast.evolution.alignment:beast.evolution.tree.coalescent:beast.core.util:beast.evolution.nuc:beast.evolution.operators:beast.evolution.sitemodel:beast.evolution.substitutionmodel:beast.base.evolution.alignment:beast.pkgmgmt:beast.base.core:beast.base.inference:beast.base.evolution.tree.coalescent:beast.pkgmgmt:beast.base.core:beast.base.inference.util:beast.evolution.nuc:beast.base.evolution.operator:beast.base.inference.operator:beast.base.evolution.sitemodel:beast.base.evolution.substitutionmodel:beast.base.evolution.likelihood", # nolint indeed a long line
    required = "BEAST.base v2.7.4",
    beast2_version = "2.7"
  )
  expect_true(is_beauti_options(beauti_options))
  expect_silent(check_beauti_options(beauti_options))
  created <- create_beast2_beast_xml(beauti_options = beauti_options)
  expected <- "<beast beautitemplate='Standard' beautistatus='' namespace=\"beast.core:beast.evolution.alignment:beast.evolution.tree.coalescent:beast.core.util:beast.evolution.nuc:beast.evolution.operators:beast.evolution.sitemodel:beast.evolution.substitutionmodel:beast.base.evolution.alignment:beast.pkgmgmt:beast.base.core:beast.base.inference:beast.base.evolution.tree.coalescent:beast.pkgmgmt:beast.base.core:beast.base.inference.util:beast.evolution.nuc:beast.base.evolution.operator:beast.base.inference.operator:beast.base.evolution.sitemodel:beast.base.evolution.substitutionmodel:beast.base.evolution.likelihood\" required=\"BEAST.base v2.7.4\" version=\"2.7\">" # nolint indeed a long line
  expect_equal(created, expected)
})