tests/testthat/test-geodist-measure.R

In dodgr: Distances on Directed Graphs

test_all <- (identical (Sys.getenv ("MPADGE_LOCAL"), "true") ||
    identical (Sys.getenv ("GITHUB_JOB"), "test-coverage"))

test_that ("geodist measure", {

    # Reset any measures stored in options:
    options ("dodgr_dist_measure" = NULL)

    graph <- weight_streetnet (hampi)
    st0 <- system.time (
        m <- get_geodist_measure (graph)
    )
    st1 <- system.time ( # should use option, not calculate
        m <- get_geodist_measure (graph)
    )
    expect_identical (m, "cheap")
    if (test_all && all (st1 > 0) && all (st0 > 0)) {
        expect_lt (st1 [3], st0 [3])
    }

    op <- getOption ("dodgr_dist_measure")
    expect_gt (length (op), 0L)
    hash <- attr (graph, "hash")
    expect_true (hash %in% names (op))
})