tests/testthat/test-function-stopIfNotEnoughColumns.R

In KWB-R/kwb.utils: General Utility Functions Developed at KWB

test_that("stopIfNotEnoughColumns() works", {

  f <- kwb.utils:::stopIfNotEnoughColumns

  expect_error(f())

  headerFields <- c("a", "b", "c")
  
  columnDescription_1 <- list(
    columnDescriptor("a"),
    columnDescriptor("b"),
    columnDescriptor("c"),
    columnDescriptor("d")
  )
  
  columnDescription_2 <- list(
    z = columnDescriptor("z")
  )
  
  expect_error(f(headerFields, columnDescription_1, ","))
  expect_silent(f(headerFields, columnDescription_2, ","))
  
})