tests/testthat/test-read_formwq.R

In tbep-tech/tbeptools: Data and Indicators for the Tampa Bay Estuary Program

test_that("Checking read_formwq", {
  xlsx <- 'exdatatmp.xlsx'

  # load
  rawdat <- read_importepc(xlsx)

  # format
  dat <- read_formwq(rawdat)

  # check if number of columns is equal to 26
  result <- ncol(dat)
  expect_equal(result, 26)

})