tests/testthat/test-geom_basemap.R

In FRBCesab/forcis: An R Client to Access the FORCIS Database

## geom_basemap() ----

test_that("Test geom_basemap() for success", {

  expect_silent({ geom <- geom_basemap() })
  
  expect_true("list" %in% class(geom))
  expect_equal(length(geom), 5L)
  
  for (i in 1:4) {
    expect_true("Layer" %in% class(geom[[i]][[1]]))
    expect_true("LayerInstance" %in% class(geom[[i]][[1]]))
    expect_true("ggproto" %in% class(geom[[i]][[1]]))
    expect_true("gg" %in% class(geom[[i]][[1]]))
    expect_true("LayerSf" %in% class(geom[[i]][[1]]))
  }
  
  expect_true("element_blank" %in% class(geom[[5]][[1]]))
  
  expect_silent({ gg <- ggplot2::ggplot() + geom_basemap() })
  
  vdiffr::expect_doppelganger("Plot with basemap", gg)
})