a unit test for as_MonoClust()

vinhtantran · Feb 14, 2021 · 7f1aa6e · 7f1aa6e
1 parent 5fcbbe0
commit 7f1aa6e
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(monoClust)
+
+test_check("monoClust")
diff --git a/tests/testthat/test-as_monoclust.R b/tests/testthat/test-as_monoclust.R
@@ -0,0 +1,7 @@
+test_that("print error when coercing wrong class to MonoClust class", {
+  testthat::expect_warning({
+    a <- list(test = 1:3)
+    as_MonoClust(a)
+  },
+  "as_MonoClust does not know how to handle object of class list.")
+})