tests/testthat/test-add-axes.R

In osmplotr: Bespoke Images of 'OpenStreetMap' Data

context ("add-axes")

test_that ("basemap object", {
           expect_error (add_axes (), "map must be supplied to add_axes")
           expect_error (add_axes (NULL), "map must be a ggplot2 object")
           expect_error (add_axes (colour = "red"),
                         "map must be supplied to add_axes")
})

test_that ("colour", {
           bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
           map <- osm_basemap (bbox = bbox, bg = "gray20")
           expect_error (add_axes (map, colour = "a"), "Invalid colour: a")
           expect_silent (add_axes (map, color = "red"))
})

test_that ("pos", {
           bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
           map <- osm_basemap (bbox = bbox, bg = "gray20")
           expect_warning (add_axes (map, pos = 1:3 / 10),
                           "Only the first two elements of pos will be used")
           expect_warning (add_axes (map, pos = "a"),
                           "pos must be numeric; using default values")
           expect_silent (add_axes (map, position = 0.1))
           # NOTE: there are grep problems in test_that for this expect_warning
           #expect_warning (add_axes (map, pos = c(-0.1,1.2)),
           #                "pos not in [0,1]; using default values")
})

test_that ("alpha values", {
           bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
           map <- osm_basemap (bbox = bbox, bg = "gray20")
           # NOTE: there are grep problems in test_that for this expect_warning
           #expect_warning (add_axes (map, alpha = -1),
           #                "alpha not in [0,1]; using default of 0.4")
           expect_warning (add_axes (map, alpha = 1:2),
                           "Only the first element of alpha will be used")
           expect_warning (add_axes (map, alpha = "a"),
                           "alpha must be numeric; using default value")
})

test_that ("fontsize", {
           bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
           map <- osm_basemap (bbox = bbox, bg = "gray20")
           expect_warning (add_axes (map, fontsize = -1),
                           "fontsize must be positive; using default value")
           expect_warning (add_axes (map, fontsize = 1:2),
                           "Only the first element of fontsize will be used")
           expect_warning (add_axes (map, fontsize = "a"),
                           "fontsize must be numeric; using default value")
           expect_silent (add_axes (map, size = 1))
           expect_warning (add_axes (map, size = -1),
                           "fontsize must be positive; using default value")
           expect_warning (add_axes (map, size = 1:2),
                           "Only the first element of fontsize will be used")
           expect_warning (add_axes (map, size = "a"),
                           "fontsize must be numeric; using default value")
})

test_that ("other_font_properties", {
           bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
           map <- osm_basemap (bbox = bbox, bg = "gray20")
           expect_silent (add_axes (map, face = 1))
           expect_silent (add_axes (map, family = 1))
})