tests/testthat/test-sas-format-options.R

In asciiSetupReader: Reads Fixed-Width ASCII Data Files (.txt or .dat) that Have Accompanying Setup Files (.sps or .sas)

sas_with_option <- function(format_line) {
  sas <- readLines(SHR_sas_name)
  stopifnot(any(grepl(format_line, sas, fixed = TRUE)))
  file <- tempfile(fileext = ".sas")
  writeLines(sub(format_line, paste(format_line, "(default=30)"), sas,
                 fixed = TRUE), file)
  file
}

test_that("options after a SAS numeric format name are ignored", {
  file <- sas_with_option("VALUE v1ffffff")
  expect_equal(parse_setup(file)$value_labels,
               parse_setup(SHR_sas_name)$value_labels)
  unlink(file)
})

test_that("options after a SAS character format name are ignored", {
  file <- sas_with_option("VALUE $v20fffff")
  expect_equal(parse_setup(file)$value_labels,
               parse_setup(SHR_sas_name)$value_labels)
  unlink(file)
})