tests/testthat/test-plans.R

In rATTAINS: Access EPA 'ATTAINS' Data

test_that("plans works", {

  vcr::use_cassette("plans_works", {
    x <- plans(huc ="020700100103")
  })

  testthat::expect_s3_class(x$plans, "tbl_df")
  testthat::expect_s3_class(x$associated_pollutants, "tbl_df")
  testthat::expect_s3_class(x$associated_parameters, "tbl_df")

  vcr::use_cassette("plans_unnest_works", {
    x <- plans(huc ="020700100103",
               .unnest = FALSE)
  })
  testthat::expect_s3_class(x, "tbl_df")

  vcr::use_cassette("plans_summary_works", {
    x <- plans(huc ="020700100103", summarize = TRUE)
  })
  testthat::expect_s3_class(x$associated_pollutants, "tbl_df")
  testthat::expect_s3_class(x$associated_parameters, "tbl_df")


  vcr::use_cassette("plans_chr_works", {
    x <- plans(huc = "020700100103", tidy = FALSE)
  })
  testthat::expect_type(x, "character")

})

test_that("plans returns errors", {
  testthat::expect_error(plans(huc ="020700100103", summarize = "Y"))
  testthat::expect_error(plans(huc = 12))

  skip_on_cran()
  webmockr::enable(quiet = TRUE)
  stub <- webmockr::stub_request("get", "https://attains.epa.gov/attains-public/api/plans?huc=020700100103&summarize=N")
  webmockr::to_return(stub, status = 502)
  testthat::expect_error(plans(huc ="020700100103"))
  webmockr::disable(quiet = TRUE)
})