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)