tests/testthat/test-read_qadipexs.R

In readapra: Download and Tidy Data from the Australian Prudential Regulation Authority

test_that("read_qadipexs() behaves as expected", {
  skip_if_offline()
  skip_on_cran()

  with_tempdir({
    current_qadipexs_path <- download_apra("qadipexs", "current", quiet = TRUE)
    current_qadipexs <- read_qadipexs(current_qadipexs_path, "current")
    historic_qadipexs_path <- download_apra("qadipexs", "current", quiet = TRUE)
    historic_qadipexs <- read_qadipexs(current_qadipexs_path, "historic")
  })

  # Testing current QADIPEXS
  expect_s3_class(current_qadipexs, "tbl_df")
  expect_equal(
    purrr::map(current_qadipexs, class),
    list(
      statistics_publication_name = "character",
      date = "Date",
      sheet = "character",
      sheet_details = "character",
      series_hierarchy = "character",
      series = "character",
      frequency = "character",
      unit = "character",
      value = "numeric"
    )
  )

  # Testing historic QADIPEXS
  expect_s3_class(historic_qadipexs, "tbl_df")
  expect_equal(
    purrr::map(historic_qadipexs, class),
    list(
      statistics_publication_name = "character",
      date = "Date",
      sheet = "character",
      sheet_details = "character",
      series_hierarchy = "character",
      series = "character",
      frequency = "character",
      unit = "character",
      value = "numeric"
    )
  )
})