complete tests

R-Lum · Nov 12, 2018 · 6081e37 · 6081e37
1 parent b426174
commit 6081e37
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/test_model_DoseRate.R b/tests/testthat/test_model_DoseRate.R
@@ -9,6 +9,8 @@ test_that("Full function test", {
   ##break function
   expect_error(model_DoseRate(data = "test"), regexp = "'data' is not a 'data.frame'")
   expect_error(model_DoseRate(data = data.frame(x = 1)), regexp = "The column names of your input data.frame do not match the requirements.")
+  expect_error(model_DoseRate(data = data.frame()), regexp = "'data' is empty!")
+  expect_error(model_DoseRate(data = data.frame(x = NA), regexp = "'data' is empty!"))
   expect_error(
     model_DoseRate(data = Example_Data[23,], n.MC = 10),regexp = "Modelling failed, please check your input data, they may not be meaningful!")
   expect_type(