tests/testthat/test-bug-1019624.R

In igraph: Network Analysis and Visualization

test_that("weighted graph_from_adjacency_matrix works on integer matrices", {
  data <- matrix(c(0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0), 4)
  g <- graph_from_adjacency_matrix(data, weighted = TRUE)
  expect_that(as.matrix(g[]), is_equivalent_to(data))
})