tests/testthat/test_monitors_service.R

In GLOrozcoM/epair: EPA Data Helper for R

httptest::with_mock_dir("monitors_in_site_ok", {
  test_that("Status returns successful", {
    bdate <- "20160101"
    edate <- "20160102"
    state.fips <- "15"
    county <- "001"
    param <- "42401"
    site <- "0007"
    result <- get_monitors_in_site(bdate = bdate, 
                                   edate = edate, 
                                   state.fips = state.fips, 
                                   county = county, 
                                   param = param, 
                                   site = site)
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})

httptest::with_mock_dir("monitors_in_county_ok", {
  test_that("Status returns successful", {
    bdate <- "20160101"
    edate <- "20160102"
    state.fips <- "15"
    county <- "001"
    param <- "42401"
    result <- get_monitors_in_county(bdate = bdate, 
                                     edate = edate, 
                                     state.fips = state.fips, 
                                     county = county,
                                     param = param)
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})

httptest::with_mock_dir("monitors_in_state_ok", {
  test_that("Status returns successful", {
    bdate <- "20200101"
    edate <- "20200102"
    state.fips <- "37"
    param <- "42401"
    result <- get_monitors_in_state(bdate = bdate, 
                                    edate = edate, 
                                    state.fips = state.fips, 
                                    param = param)
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})

httptest::with_mock_dir("monitors_in_cbsa_ok", {
  test_that("Status returns successful", {
    bdate <- "20200101"
    edate <- "20200102"
    cbsa <- "16740"
    param <- "42401"
    result <- get_monitors_in_cbsa(bdate, edate, param, cbsa)
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})

httptest::with_mock_dir("monitors_in_bbox_ok", {
  test_that("Status returns successful", {
    bdate <- "20200101"
    edate <- "20200102"
    param <- "42401"
    minlat <- 33.3
    maxlat <- 33.6
    minlong <- -87
    maxlong <- -86.7
    result <- get_monitors_in_bbox(bdate, 
                                   edate, 
                                   param, 
                                   minlat, 
                                   maxlat, 
                                   minlong, 
                                   maxlong)
    found.status <- result$Header$status
    exp.status <- "Success"
    expect_equal(exp.status, found.status)
  })
})