tests/testthat/test-schema.R

In mdbr: Work with Microsoft Access Files

library(testthat)
library(mdbr)

test_that("schema returns col spec", {
  skip_on_cran()
  skip_if_not(has_mdb_tools())
  dat <- mdb_schema(mdb_example(), "Flights")
  expect_s3_class(dat, "col_spec")
})

test_that("schema can be condensed", {
  skip_on_cran()
  skip_if_not(has_mdb_tools())
  a <- mdb_schema(mdb_example(), "Flights")
  b <- mdb_schema(mdb_example(), "Flights", condense = TRUE)
  expect_gt(length(a$cols), length(b$cols))
})

test_that("schema errors without table", {
  skip_on_cran()
  skip_if_not(has_mdb_tools())
  expect_error(mdb_schema(mdb_example()))
})