tests/testthat/test_qa_frv_service.R

In GLOrozcoM/epair: EPA Data Helper for R

httptest::with_mock_dir("qa_frv_in_site_ok", {
    test_that("Status returns successful", {
        bdate <- "20200101"
        edate <- "20200131"
        state.fips <- "01"
        county <- "003"
        param <- "88101"
        site <- "0010"
        result <- get_qa_frv_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("qa_frv_in_county_ok", {
    test_that("Status returns successful", {
        bdate <- "20200101"
        edate <- "20200131"
        state.fips <- "01"
        county <- "003"
        param <- "88101"
        result <- get_qa_frv_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("qa_frv_in_state_ok", {
    test_that("Status returns successful", {
        bdate <- "20200101"
        edate <- "20200131"
        state.fips <- "01"
        param <- "88101"
        result <- get_qa_frv_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("qa_frv_in_pqao_ok", {
    test_that("Status returns successful", {
        bdate <- "20200101"
        edate <- "20200131"
        param <- "88101"
        pqao <- "0013"
        result <- get_qa_frv_in_pqao(bdate = bdate,
                                     edate = edate,
                                     param = param,
                                     pqao = pqao)
        found.status <- result$Header$status
        exp.status <- "Success"
        expect_equal(exp.status, found.status)
    })
})

httptest::with_mock_dir("qa_frv_in_agency_ok", {
    test_that("Status returns successful", {
        bdate <- "20200101"
        edate <- "20200131"
        param <- "88101"
        agency <- "0013"
        result <- get_qa_frv_in_agency(bdate = bdate, 
                                       edate = edate, 
                                       param = param, 
                                       agency = agency)
        found.status <- result$Header$status
        exp.status <- "Success"
        expect_equal(exp.status, found.status)
    })
})