tests/testthat/test-get_radar_imagery.R

In ToowoombaTrio/bomrang: Australian Government Bureau of Meteorology ('BOM') Data Client

# get_available_radar()---------------------------------------------------------
test_that("get_available_radar error handling works", {
  skip_on_cran()
  expect_error(expect_warning(get_available_radar(radar_id = "abc")))
})

test_that("get_available_radar functions properly", {
  skip_on_cran()

  x <- get_available_radar(radar_id = "all")
  expect_is(x, "data.frame")
  expect_gt(nrow(x), 0)

  xx <- get_available_radar()
  expect_is(xx, "data.frame")
  expect_gt(nrow(xx), 0)
  expect_equal(xx, get_available_radar(radar_id = "all"))

  xxx <- get_available_radar(radar_id = 3)
  expect_is(xxx, "data.frame")
  expect_gt(nrow(xxx), 0)
  expect_lt(nrow(xxx), 5)
  expect_equal(unique(xxx$Radar_id), 3)
})

# get_radar_imagery()-----------------------------------------------------------
test_that("Error handling works", {
  skip_on_cran()
  expect_error(expect_warning(get_radar_imagery(product_id = "abc")))
  expect_error(expect_warning(get_radar_imagery()))
  expect_error(get_radar_imagery(c("IDR032", "IDR022")))
})

test_that("get_radar_imagery functions properly", {
  skip_on_cran()
  y <- get_radar_imagery(product_id = "IDR022")
  expect_is(y, "magick-image")

  yy <- get_radar_imagery(product_id = "IDR022", download_only = TRUE)
  expect_null(yy)
})