tests/testthat/test-download_data_macro_predictors.R

In tidyfinance: Tidy Finance Helper Functions

test_that("download_data_macro_predictors gracefully handles broken url", {
  skip_if_offline()
  skip_on_cran()
  expect_message(
    download_data_macro_predictors(
      "macro_predictors_monthly",
      start_date = "2020-01-01",
      end_date = "2022-12-01",
      sheet_id = "test"
    ),
    "Returning an empty data set due to download failure."
  ) |>
    expect_message("The resource may not be available")
})

test_that("download_data_macro_predictors handles start_date after end_date", {
  expect_error(
    download_data_macro_predictors(
      "macro_predictors_monthly", start_date = "2021-12-31", end_date = "2020-01-01"
    ),
    regexp = "`start_date` cannot be after `end_date`"
  )
})