inst/tinytest/test_get_borders.R

In riatelab/mapsf: Thematic Cartography

mtq <- mf_get_mtq()
expect_silent(mf_get_borders(mtq))
expect_error(mf_get_borders(st_transform(mtq, 4326)))
expect_error(mf_get_borders(st_cast(mtq, "MULTIPOINT")))
x <- mf_get_borders(mtq)
expect_equal(nrow(x), 142)
expect_inherits(sf::st_geometry(x), "sfc_MULTILINESTRING")