tests/testthat/test-generate.R

In mapscanner: Print Maps, Draw on Them, Scan Them Back in

context ("generate")

test_that ("errors", {
    expect_error (
        ms_generate_map (),
        paste0 (
            "Please provide a 'mapname' \\(with ",
            "optional path\\) for the maps"
        )
    )
})

test_that ("generate", {
    # loc <- rbind (c (-96.12923, -96.01011),
    #              c (41.26145, 41.32220))
    # x <- ms_generate_map (loc, max_tiles = 1L, mapname = "omaha")
    # saveRDS (x, "tests/x.Rds")
    expect_silent (x <- readRDS ("../x.Rds"))
    x@crs@projargs <- .sph_merc ()
    expect_error (
        x <- ms_generate_map (raster_brick = x),
        paste0 (
            "Please provide a 'mapname' ",
            "\\(with optional path\\)"
        )
    )
    mapname <- file.path (tempdir (), "map")
    expect_message (
        x2 <- ms_generate_map (
            mapname = mapname,
            raster_brick = x
        ),
        "Successfully generated"
    )
    expect_true (identical (x, x2))
})

# ------ internal functions -----

# non-ideal, but the actual tile extraction can't be efficiently tested, so the
# remainder are tested here via calls to internal functions

test_that ("convert bbox", {
    expect_error (
        bbc <- convert_bbox (1:5),
        "bbox must have four elements"
    )
    expect_silent (bbc <- convert_bbox (1:4))
    expect_is (bbc, "matrix")
    expect_equal (nrow (bbc), 2)
    expect_equal (ncol (bbc), 2)
})

test_that ("slippy bbox", {
    bb <- convert_bbox (1:4)
    expect_silent (s <- slippy_bbox (bb))
    expect_is (s, "list")
    expect_identical (names (s), c ("tile_bbox", "user_points"))
    expect_is (s$tile_bbox, "numeric")
    expect_equal (length (s$tile_bbox), 4)
    expect_is (s$user_points, "matrix")
})

test_that ("url_to_cache", {
    query_string <- paste0 (
        "https://api.mapbox.com/v4/mapbox.light/",
        "{zoom}/{x}/{y}.jpg?access_token=",
        "123456789"
    )
    expect_silent (outfile <- url_to_cache (query_string))
    expect_is (outfile, "character")
    expect_false (file.exists (outfile))
    expect_false (dir.exists (outfile))
})

test_that ("raster_brick", {
    f <- system.file ("extdata", "omaha.png", package = "mapscanner")
    expect_silent (rb <- raster_brick (f))
    expect_is (rb, "RasterBrick")
})

test_that ("spherical_mercator", {
    expect_silent (x <- spherical_mercator ())
    expect_is (x, "tbl")
    expect_equal (nrow (x), 1)
    expect_equal (ncol (x), 5)
    expect_identical (names (x), c (
        "provider", "maxextent", "A",
        "B", "crs"
    ))
})