diff --git a/tests/testthat/test_calc_Statistics.R b/tests/testthat/test_calc_Statistics.R
index 991599586..89483fb02 100644
--- a/tests/testthat/test_calc_Statistics.R
+++ b/tests/testthat/test_calc_Statistics.R
@@ -20,6 +20,10 @@ test_that("check class and length of output", {
 test_that("Test certain input scenarios", {
   expect_is(calc_Statistics(temp_RLum), "list")
 
+  df <- ExampleData.DeValues$BT998
+  df[, 2] <- NULL
+  expect_warning(calc_Statistics(df))
+
   df <- ExampleData.DeValues$BT998
   df[,2] <- 0
   expect_warning(calc_Statistics(df))