tests/testthat/test-actions.R

In rATTAINS: Access EPA 'ATTAINS' Data

test_that("actions webservice works", {
  vcr::use_cassette("actions_works", {
    x_1 <- actions(action_id = "R8-ND-2018-03")
  })
  testthat::expect_type(x_1, "list")
  purrr::map(x_1, \(x) {
    testthat::expect_s3_class(x, "tbl_df")
  })

  vcr::use_cassette("actions_unnest_works", {
    x_1 <- actions(action_id = "R8-ND-2018-03", .unnest = FALSE)
  })
  testthat::expect_s3_class(x_1, "tbl_df")

  vcr::use_cassette("actions_chr_works", {
    x_2 <- actions(action_id = "R8-ND-2018-03", tidy = FALSE)
  })
  testthat::expect_type(x_2, "character")
})

test_that("actions webservice returns errors", {
  testthat::expect_error(actions(action_id = 10))

  skip_on_cran()
  webmockr::enable(quiet = TRUE)
  stub <- webmockr::stub_request(
    "get",
    "https://api.epa.gov/attains/actions?actionIdentifier=R8-ND-2018-03&summarize=N&returnCountOnly=N"
  )
  webmockr::to_return(stub, status = 502)
  testthat::expect_error(actions(action_id = "R8-ND-2018-03"))
  webmockr::disable(quiet = TRUE)
})