From 3c4681340f2d49c2904b4e9c7a70d78eefbf00c8 Mon Sep 17 00:00:00 2001
From: richelbilderbeek <richel@richelbilderbeek.nl>
Date: Thu, 31 Jan 2019 10:48:20 +0100
Subject: [PATCH] Done 'check_experiment', progress #69

---
 R/check_experiment.R                   | 24 ++++++++++++++++++++++--
 tests/testthat/test-check_experiment.R |  3 +--
 2 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/R/check_experiment.R b/R/check_experiment.R
index e695716f..dff21348 100644
--- a/R/check_experiment.R
+++ b/R/check_experiment.R
@@ -34,6 +34,26 @@ check_experiment <- function(
   if (!experiment$do_measure_evidence %in% c(TRUE, FALSE)) {
     stop("'do_measure_evidence' must be either TRUE or FALSE")
   }
-  beautier::check_inference_model(experiment$inference_model)
-  beastier::check_beast2_options(experiment$beast2_options)
+  tryCatch(
+    beautier::check_inference_model(experiment$inference_model),
+    error = function(e) {
+      stop(
+        "'inference_model' must be a valid inference model\n",
+        "Tip: use 'beautier::create_inference_model'.\n",
+        "Error: ", e$message, "\n",
+        "Value: ", experiment$inference_model
+      )
+    }
+  )
+  tryCatch(
+    beastier::check_beast2_options(experiment$beast2_options),
+    error = function(e) {
+      stop(
+        "'beast2_options' must be valid BEAST2 options.\n",
+        "Tip: use 'beastier::create_beast2_options'.\n",
+        "Error: ", e$message, "\n",
+        "Value: ", experiment$beast2_options
+      )
+    }
+  )
 }
diff --git a/tests/testthat/test-check_experiment.R b/tests/testthat/test-check_experiment.R
index 581a1897..103769d2 100644
--- a/tests/testthat/test-check_experiment.R
+++ b/tests/testthat/test-check_experiment.R
@@ -74,7 +74,6 @@ test_that("wrong parameter values", {
     ),
     "'do_measure_evidence' must be either TRUE or FALSE"
   )
-  skip("WIP, #69")
   expect_error(
     check_experiment(
       create_experiment(
@@ -89,7 +88,7 @@ test_that("wrong parameter values", {
         beast2_options = "nonsense"
       )
     ),
-    "'beast2_options' must be a valid inference model"
+    "'beast2_options' must be valid BEAST2 options"
   )
 
 })