tests/testthat/test.toLatexTable.R

context("toLatexTable")

test_that("toLatexTable runs without errors", {
    graph <- randomGraph(n=20,euclidean=TRUE)
    a <- aStarSearch(graph,"A","K")
    fw <- floydWarshall(graph)

    expect_output(toLatexTable(a),"multicolumn")
    expect_output(toLatexTable(fw),"multicolumn")
})
mhils/shortestpath documentation built on Dec. 17, 2020, 3:19 p.m.