File: test-misc.R

package info (click to toggle)
r-cran-graphlayouts 1.2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,660 kB
  • sloc: cpp: 696; sh: 13; makefile: 2
file content (10 lines) | stat: -rw-r--r-- 271 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
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))
})