tests/testthat/test-contrcad.R

In wilsonfreitas/rbmfbovespa: Download and Parse Public Data Released by B3 Exchange

test_that("it should load CONTRCAD with the correct field types", {
  f <- system.file("extdata/CONTRCAD.TXT", package = "rb3")
  f <- copy_file_to_temp(f)
  suppressWarnings(
    df <- read_marketdata(f, template = "CONTRCAD")
  )
  expect_s3_class(df$tipo_opcao, "factor")
})