tests/testthat/test-StxlsxToSchema.R

In david-salgado/fastReadfwf: Fast read of fwf files with arbitrary input schema

path <- system.file('extdata', package = 'fastReadfwf')
schema <- StxlsxToSchema(file.path(path, 'SchemaSNHS.xlsx'), 'stSchema')

test_that("class schema from xlsx", {
  expect_is(schema, "StfwfSchema")
})