Add unit test for DEqual throws an error for non-dataframe input

LieberInstitute · Jan 9, 2024 · 1c3c6b9 · 1c3c6b9
1 parent 22a98f0
commit 1c3c6b9
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/R/DEqual.R b/R/DEqual.R
@@ -45,7 +45,7 @@ DEqual <- function(DE) {
     # stopifnot(!is.null(rownames(DE)))
 
     # Check if input is a dataframe
-    if (!is.data.frame(DE)) { stop("Error: The input is not a dataframe") }
+    if (!is.data.frame(DE)) { stop("Error: The input to DEqual is not a dataframe.") }
 
     # Check if 't' is in the column names of DE
       if (!("t" %in% colnames(DE))) {

diff --git a/tests/testthat/test-DEqual.R b/tests/testthat/test-DEqual.R
@@ -17,6 +17,12 @@ test_that("Input to DEqual is a dataframe", {
   # Test if the input to DEqual is a dataframe
   expect_true(is.data.frame(random_de), "The input to DEqual is not a dataframe.")
 })
+
+# Test if DEqual throws an error when input is not a dataframe
+test_that("DEqual throws an error for non-dataframe input", {
+  # Test if DEqual throws an error when input is not a dataframe
+  expect_error(DEqual(covComb_tx_deg), "Error: The input to DEqual is not a dataframe.")
+})
 
 # Test that the output is a ggplot object
 test_that("output is a ggplot", {