context ("dodgr graph conversion")

test_that ("igraph", {
    graph <- weight_streetnet (hampi)
    graph_i <- dodgr_to_igraph (graph)
    expect_equal (nrow (graph), igraph::ecount (graph_i))

    nms <- names (igraph::edge.attributes (graph_i))
    expect_lt (length (nms), ncol (graph))
    expect_true ("highway" %in% nms)

    graph1 <- graph [, -match ("highway", names (graph))]
    graph_i1 <- dodgr_to_igraph (graph1)
    nms1 <- names (igraph::edge.attributes (graph_i1))
    expect_lt (length (nms1), length (nms))
    expect_false ("highway" %in% nms1)

    graph2 <- igraph_to_dodgr (graph_i)
    expect_true (!identical (graph, graph2))
    expect_equal (nrow (graph), nrow (graph2))

    expect_error (
        graph_i <- dodgr_to_igraph (graph,
            weight_column = "does_not_exist"
        ),
        "graph contains no column named 'does_not_exist'"
    )

    graph$from_id <- graph$to_id <- NULL
    expect_silent (graph_i <- dodgr_to_igraph (graph))
})

test_that ("tidyraph", {
    graph <- weight_streetnet (hampi)
    graph_t <- dodgr_to_tidygraph (graph)
    expect_equal (nrow (graph), igraph::ecount (graph_t))
})

test_that ("sf", {
    graph <- weight_streetnet (hampi)
    gsfc <- dodgr_to_sfc (graph)
    expect_is (gsfc, "list")
    expect_equal (length (gsfc), 2)

    gsf1 <- dodgr_to_sf (graph)
    gsf2 <- sf::st_sf (gsfc$dat, geometry = gsfc$geometry, crs = 4326)
    expect_identical (gsf1, gsf2)

    gc <- dodgr_contract_graph (graph)
    expect_error (
        suppressWarnings (gsf <- dodgr_to_sf (gc)),
        "Graph has already been contracted"
    )
})