tests/testthat/test-misc.R

In schochastics/graphlayouts: Additional Layout Algorithms for Network Visualizations

test_that("adjust_dist works", {
  D <- matrix(c(0,1,1,Inf,Inf,
                1,0,1,Inf,Inf,
                1,1,0,Inf,Inf,
                Inf,Inf,Inf,0,1,
                Inf,Inf,Inf,1,0),5,5,byrow=TRUE)
  Dlist <- list(D,D)
  expect_no_error(adjust_dist(Dlist))
})