tests/testthat/test-weather_alerts.R

In munterfinger/hereR: 'sf'-Based Interface to the 'HERE' REST APIs

test_that("weather alerts works", {
  # Set dummy key
  set_key("dummy_api_key")

  # Load package example data
  data(poi)

  # Input checks
  expect_error(weather(poi = c(1, 2, 3)))
  expect_error(weather(poi = c("character", NA)), "'poi' contains NAs.")
  expect_error(weather(poi = poi, product = "not_a_product"), "'product' must be 'observation', 'forecast_hourly', 'forecast_astronomy', 'alerts'.")
  expect_error(weather(poi = poi, url_only = "not_a_bool"), "'url_only' must be a 'boolean' value.")

  # Test with API response mock
  with_mocked_bindings(
    .async_request = function(url, rps) {
      hereR:::mock$weather_alerts_response
    },
    {
      weather_alerts <- weather(poi = poi, product = "alerts")

      # Tests
      expect_equal(any(sf::st_geometry_type(weather_alerts) != "POINT"), FALSE)
      expect_equal(nrow(weather_alerts), nrow(poi))
    }
  )
})