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")
})
huoston/shortestpath documentation built on May 25, 2019, 8:18 a.m.