Better test environment for API requests about fredr HOT 3 CLOSED

> getwd()
[1] "/Users/sboysel/repos/fredr/tests/testthat"
> 
> devtools::load_all(here::here())
Loading fredr
> library(httptest)
> options(httptest.verbose=TRUE)
> 
> skip_if_no_key <- function() {
+     testthat::skip_if(
+         condition = identical(Sys.getenv("FRED_API_KEY"), ""),
+         message = "FRED API key is not set."
+     )
+ }
> 
> # mock paths
> httptest::.mockPaths()
[1] "."
> 
> # capture
> httptest::start_capturing()
> readRenviron(here::here(".Renviron"))
> fredr::fredr_set_key(Sys.getenv("FRED_API_KEY"))
> fredr_category(category_id = 10L)
Writing /Users/sboysel/repos/fredr/tests/testthat/api.stlouisfed.org/fred/category-af4199.json
# A tibble: 1 x 3
     id name                                    parent_id
  <int> <chr>                                       <int>
1    10 Population, Employment, & Labor Markets         0
> httptest::stop_capturing()
> 
> # test with mock api
> httptest::with_mock_api({
+     test_that("fredr_category()", {
+         skip_if_no_key()
+         expect_silent(ctg <- fredr_category(category_id = 10L))
+     })
+ })
Tracing function "form_file" as seen from package "httr"
Error: Test failed: 'fredr_category()'
* `ctg <- fredr_category(category_id = 10L)` produced messages.
Untracing function "form_file" in package "curl"
>