tests/testthat/test-get_available_files.r

In readabs: Download and Tidy Time Series Data from the Australian Bureau of Statistics

test_that("get_available_files() works", {
  skip_if_offline()
  skip_on_cran()
  check_abs_connection()

  cats <- show_available_catalogues()

  get_available_files_printname <- function(cat) {
    print(cat)
    get_available_files(cat)
  }

  safely_get_available_files <- purrr::safely(get_available_files_printname)

  results <- purrr::map(cats, safely_get_available_files)

  results <- setNames(results, cats)

  results <- purrr::transpose(results)

  errors <- purrr::compact(results$error)

  error_names <- names(errors)

  expect_equal(length(error_names), 0)
})