From ef892732ed5cdfe1024829996c87755558a65175 Mon Sep 17 00:00:00 2001
From: richelbilderbeek <richel@richelbilderbeek.nl>
Date: Wed, 18 Aug 2021 16:03:53 +0200
Subject: [PATCH] Cannot do #130 yet, as there is no support for multiple tree
 priors yet

---
 ...beast2_input_by_reproducing_files_simple.R | 33 +++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/tests/testthat/test-create_beast2_input_by_reproducing_files_simple.R b/tests/testthat/test-create_beast2_input_by_reproducing_files_simple.R
index 7e39cb5d..b6800bd1 100644
--- a/tests/testthat/test-create_beast2_input_by_reproducing_files_simple.R
+++ b/tests/testthat/test-create_beast2_input_by_reproducing_files_simple.R
@@ -1494,3 +1494,36 @@ test_that("Tip dating with RLN", {
   )
   expect_true(are_equivalent_xml_lines(created, expected, verbose = TRUE))
 })
+
+test_that("Offset", {
+
+  skip("Issue #130. https://github.com/ropensci/beautier/issues/130")
+  # To reproduce 'distr_offset.xml' we need support for multiple tree priors
+  # first
+
+  fasta_filename <- beautier::get_beautier_tempfilename(
+    pattern = "primates_",
+    fileext = ".fas"
+  )
+  save_nexus_as_fasta(
+    nexus_filename = beastier::get_beast2_example_filename("Primates.nex"),
+    fasta_filename = fasta_filename
+  )
+
+  created <- create_beast2_input_from_model(
+    input_filename = fasta_filename,
+    inference_model = create_inference_model(),
+    beauti_options = create_beauti_options_v2_6()
+  )
+  expected <- readLines(get_beautier_path("distr_offset.xml"))
+  stringr::str_subset(expected, "offset")
+
+  compare_lines(
+    lines = created,
+    expected = expected,
+    created_lines_filename = "~/created.xml",
+    expected_lines_filename = "~/expected.xml"
+  )
+  expect_true(are_equivalent_xml_lines(created, expected, verbose = TRUE))
+  file.remove(fasta_filename)
+})