tests/testthat/test.dijkstra.R

context("dijkstra")

test_that("dijkstra runs without errors", {
    graph <- randomGraph(n=10,euclidean=FALSE)
    r <- dijkstra(graph,"A","J")
    expect_is(r,"spresults")
})
mhils/shortestpath documentation built on Dec. 17, 2020, 3:19 p.m.