test: add test for find_cycle()

igraph · Nov 18, 2024 · c0df132 · c0df132
1 parent 9fbcd5d
commit c0df132
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/testthat/test-cycles.R b/tests/testthat/test-cycles.R
@@ -0,0 +1,13 @@
+
+test_that("find_cycle works", {
+  g <- make_graph(c(1,2, 2,3, 1,3, 1,1), directed = TRUE)
+
+  cycle <- find_cycle(g)
+  expect_equal(length(cycle$vertices), 1)
+  expect_equal(length(cycle$edges), 1)
+
+  # Finding a cycle of length 1 or 3 are both valid here
+  cycle <- find_cycle(g, mode = "all")
+  expect_equal(length(cycle$vertices), 3)
+  expect_equal(length(cycle$edges), 3)
+})