tests/testthat/test-fst.R

test_that("read_abs works out of the box", {
  skip_on_cran()
  skip_if_offline()
  check_abs_connection()

  out6345_init <- read_abs(cat_no = "6345.0")
  skip_if_not(file.exists(catno2fst("6345.0")))
  out6345_next <- read_abs(cat_no = "6345.0")


  expect_equal(out6345_init, out6345_next)

  out6345_A2599619A <- read_abs(cat_no = "6345.0", series_id = "A2599619A")
  expect_equal(out6345_A2599619A, dplyr::filter(out6345_init, series_id == "A2599619A"))

  # warning handling --- must be after out6401_next
  expect_warning(read_abs(cat_no = "6345.0", series_id = "not a real series id"),
    regexp = "but was not present in the local table and will be ignored",
    fixed = TRUE
  )

  expect_warning(read_abs(cat_no = "6345.0", tables = "not all"),
    regexp = "tables.*will be ignored"
  )
})

test_that("fst-utils", {
  expect_false(fst_available(cat_no = NULL))
  expect_false(fst_available(cat_no = character(2)))
  expect_false(fst_available(cat_no = NA_character_))
  expect_false(fst_available(cat_no = ""))
  tempf.fst <- tempfile(fileext = ".fst")
  writeLines("9999-9", tempf.fst)
  expect_false(fst_available("9999.9", path = dirname(tempf.fst)))
  expect_equal(ext2ext("file.csv", ".txt"), "file.txt")
})

Try the readabs package in your browser

Any scripts or data that you put into this service are public.

readabs documentation built on Dec. 17, 2021, 1:07 a.m.