tests/testthat/test-bdin.R

In rb3: Download and Parse Public Data Released by B3 Exchange

test_that("read file using filename to find template", {
  skip_on_cran()

  f <- system.file("extdata/big-files/BDIN.zip", package = "rb3")
  f <- copy_file_to_temp(f)
  f <- unzip(f, exdir = tempdir())

  res <- read_marketdata(f)
  expect_s3_class(res, "parts")
  expect_s3_class(res[[1]], "data.frame")
})