From bbadf65e3ba1eae57918da70851dbe10195034fe Mon Sep 17 00:00:00 2001
From: ben-schwen <52290390+ben-schwen@users.noreply.github.com>
Date: Mon, 2 Dec 2019 12:05:15 +0100
Subject: [PATCH] added test case for valid_metrics

---
 R/tests/testthat/test_diagnostics.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/tests/testthat/test_diagnostics.R b/R/tests/testthat/test_diagnostics.R
index 559b8b9..29f7d64 100644
--- a/R/tests/testthat/test_diagnostics.R
+++ b/R/tests/testthat/test_diagnostics.R
@@ -129,6 +129,11 @@ test_that("performance_metrics", {
   ))
   df_horizon <- performance_metrics(df_cv, metrics = c('mape'))
   expect_null(df_horizon)
+  # List of metrics containing non valid metrics
+  expect_error(
+     performance_metrics(df, metrics = c('mse', 'error_metric')),
+     'Valid values for metrics are: mse, rmse, mae, mape, coverage'
+  )
 })
 
 test_that("rolling_mean", {