tests/testthat/test-scrape_table_list.R

In readrba: Download and Tidy Data from the Reserve Bank of Australia

test_that("scrape_table_list() scrapes urls", {
  expect_error(scrape_table_list("nonsense"))

  skip_if_offline()
  skip_on_cran()

  table_list <- scrape_table_list()

  expect_is(table_list, "tbl_df")
  expect_gt(nrow(table_list), 90)
  expect_length(table_list, 5)
  expect_identical(
    names(table_list),
    c("title", "no", "url", "current_or_historical", "readable")
  )
  expect_identical(table_list$title[1], "RBA Balance Sheet")
  expect_identical(table_list$no[1], "A1")
})