test: merged and refactored make.R tests (#1685)

igraph · Feb 19, 2025 · 70163da · 70163da
1 parent f5016e4
commit 70163da
Show file tree

Hide file tree

Showing 10 changed files with 454 additions and 319 deletions.
diff --git a/R/make.R b/R/make.R
diff --git a/tests/testthat/_snaps/make.md b/tests/testthat/_snaps/make.md
@@ -1,3 +1,46 @@
+# error messages are proper
+
+    Code
+      make_()
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to make_, nothing given
+    Code
+      make_(1:10)
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to make_, nothing given
+    Code
+      graph_()
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to graph_, nothing given
+    Code
+      graph_(1:10)
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to graph_, nothing given
+    Code
+      graph_(directed_graph(), directed_graph())
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to graph_, multiple constructors given
+    Code
+      sample_()
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to sample_, nothing given
+    Code
+      sample_(1:10)
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to sample_, nothing given
+    Code
+      sample_(directed_graph(), directed_graph())
+    Condition
+      Error in `.extract_constructor_and_modifiers()`:
+      ! Don't know how to sample_, multiple constructors given
+
 # graph_from_literal() and simple undirected graphs
 
     Code
@@ -106,3 +149,11 @@
       + edges (vertex names):
       [1] 1--1 1--2 1--2
 
+# make_empty_graph gives an error for invalid arguments
+
+    Code
+      make_empty_graph(NULL)
+    Condition
+      Error in `make_empty_graph()`:
+      ! At rinterface_extra.c:78 : Expecting a scalar integer but received a vector of length 0. Invalid value
+
diff --git a/tests/testthat/test-graph.atlas.R b/tests/testthat/test-graph.atlas.R
diff --git a/tests/testthat/test-graph.bipartite.R b/tests/testthat/test-graph.bipartite.R
diff --git a/tests/testthat/test-graph.de.bruijn.R b/tests/testthat/test-graph.de.bruijn.R
diff --git a/tests/testthat/test-graph.kautz.R b/tests/testthat/test-graph.kautz.R