tests/testthat/test-download_data_osap.R

In tidyfinance: Tidy Finance Helper Functions

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

test_that("download_data_osap handles start_date after end_date", {
  expect_error(
    download_data_osap(
      start_date = "2021-01-01", end_date = "2020-12-01", sheet_id = "test"
    ),
    regexp = "`start_date` cannot be after `end_date`"
  )
})