Add test

cynkra · Oct 9, 2023 · f345abd · f345abd
1 parent be1f858
commit f345abd
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/graph.md b/tests/testthat/_snaps/graph.md
@@ -5,3 +5,18 @@
     Output
       [1] "airlines|flights" "airports|flights" "flights|planes"   "flights|weather" 
 
+# empty graph
+
+    Code
+      create_graph_from_dm(empty_dm())
+    Output
+      IGRAPH 1c33ea7 UN-- 0 0 -- 
+      + attr: name (v/c)
+      + edges from 1c33ea7 (vertex names):
+    Code
+      create_graph_from_dm(dm(x = tibble(a = 1)))
+    Output
+      IGRAPH 2b92189 UN-- 1 0 -- 
+      + attr: name (v/c)
+      + edges from 2b92189 (vertex names):
+
diff --git a/tests/testthat/test-graph.R b/tests/testthat/test-graph.R
@@ -30,3 +30,10 @@ test_that("functions working with graphs do the right thing?", {
     attr(igraph::E(create_graph_from_dm(nyc_comp())), "vnames")
   })
 })
+
+test_that("empty graph", {
+  expect_snapshot({
+    create_graph_from_dm(empty_dm())
+    create_graph_from_dm(dm(x = tibble(a = 1)))
+  })
+})