Add tests

tesselle · Nov 3, 2019 · b50a277 · b50a277
1 parent feb45d6
commit b50a277
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/R/predicates.R b/R/predicates.R
@@ -289,8 +289,6 @@ is_dag <- function(x) {
       m <- m[!(m %in% G[, 2])]
       if (length(m) != 0)
         S <- append(S, m)
-    } else {
-      break()
     }
     k <- k + 1
   }

diff --git a/tests/testthat/test-stratigraphy.R b/tests/testthat/test-stratigraphy.R
@@ -23,6 +23,13 @@ test_that("Initialize a StratigraphicMatrix instance", {
   # Empty instence
   expect_s4_class(.StratigraphicMatrix(), "StratigraphicMatrix")
 })
+test_that("StratigraphicMatrix constructor", {
+  options("verbose" = TRUE)
+  cnd <- catch_conditions(StratigraphicMatrix())
+  for (i in seq_len(2)) {
+    expect_s3_class(cnd[[i]], "message_class_initialize")
+  }
+})
 test_that("non DAG fails", {
   harris1 <- rbind(harris, c(1, 9))
   cnd <- catch_conditions(as_stratigraphy(harris1))