From 9d6233160c8f252ba86833e8929e0629c8f84306 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= Date: Tue, 23 Jan 2024 14:14:02 +0100 Subject: [PATCH] add test --- tests/testthat/test-get.incidence.R | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/tests/testthat/test-get.incidence.R b/tests/testthat/test-get.incidence.R index bf71a23d7a4..b47164c4e5c 100644 --- a/tests/testthat/test-get.incidence.R +++ b/tests/testthat/test-get.incidence.R @@ -7,6 +7,19 @@ test_that("as_biadjacency_matrix() works -- dense", { expect_identical(colnames(I2), as.character(8:12)) }) +test_that("as_biadjacency_matrix() works -- dense named", { + I <- matrix(sample(0:1, 35, replace = TRUE, prob = c(3, 1)), ncol = 5) + g <- graph_from_biadjacency_matrix(I) + V(g)$name <- letters[1:length(V(g))] + + expect_true(is_named(g)) + + I2 <- as_biadjacency_matrix(g) + expect_that(I, is_equivalent_to(I2)) + expect_identical(rownames(I2), c("a", "b", "c", "d", "e", "f", "g")) + expect_identical(colnames(I2), c("h", "i", "j", "k", "l")) +}) + test_that("as_biadjacency_matrix() works -- sparse", { I <- matrix(sample(0:1, 35, replace = TRUE, prob = c(3, 1)), ncol = 5) g <- graph_from_biadjacency_matrix(I)