test: fold test-chung_lu into test-games

igraph · Dec 13, 2024 · c81b8c1 · c81b8c1
1 parent e7c6c38
commit c81b8c1
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 13 deletions.
diff --git a/tests/testthat/test-chung_lu.R b/tests/testthat/test-chung_lu.R
diff --git a/tests/testthat/test-games.R b/tests/testthat/test-games.R
@@ -471,3 +471,17 @@ test_that("HSBM with list arguments works", {
   )
   expect_equal(gg1[] + gg2[], gg22[])
 })
+
+test_that("sample_chung_lu works", {
+  g <- sample_chung_lu(c(3, 3, 2, 2, 1, 1))
+  expect_false(any_multiple(g))
+
+  g <- sample_chung_lu(c(3, 3, 2, 2, 1, 1), loops = FALSE, variant = 'original')
+  expect_true(is_simple(g))
+
+  g <- sample_chung_lu(c(3, 3, 2, 2, 1, 1), loops = FALSE, variant = 'maxent')
+  expect_true(is_simple(g))
+
+  g <- sample_chung_lu(c(3, 3, 2, 2, 1, 1), loops = FALSE, variant = 'nr')
+  expect_true(is_simple(g))
+})