Add comment to test

tests/testthat/test-create_beast2_input_by_reproducing_files_simple.R

@@ -1634,15 +1634,22 @@ test_that("Tip dating, v2.6", {
 test_that("Tip dating with RLN", {
 
   skip("Issue #116. RLN + tipdating")
+  # Probably needs to get proper IDs and such ...
   # Prerequisite for https://github.com/ropensci/babette/issues/90
   created <- create_beast2_input(
     input_filename = get_beautier_path("Felinecoronavirus_Envelope_1.fas"),
+    site_model = create_jc69_site_model(),
+    clock_model = create_rln_clock_model(
+      mean_clock_rate =  0.001,
+      mean_rate_prior_distr = create_normal_distr()
+    ),
+    tree_prior = create_cbs_tree_prior(),
     tipdates_filename = get_beautier_path(
       "Felinecoronavirus_Envelope_1_no_quotes.txt"
     ),
     beauti_options = create_beauti_options_v2_6()
   )
-    expected <- readLines(get_beautier_path("Felinecoronavirus_Envelope_1.xml"))
+  expected <- readLines(get_beautier_path("Felinecoronavirus_Envelope_1.xml"))
 
   # Creates temporary files in beautier folder
   compare_lines(