tests/testthat/test-das_check.R

In swfscDAS: Southwest Fisheries Science Center Shipboard DAS Data Processing

test_that("das_check no error output", {
  y.check <- das_check(system.file("das_sample.das", package = "swfscDAS"),
                      print.cruise.nums = FALSE)

  exp.df <- data.frame(
    File = NA, LineNum = NA, CruiseNum = NA, ID = NA,
    Description = "No errors found",
    stringsAsFactors = FALSE
  )

  expect_identical(y.check, exp.df)

  # TODO: Make das_sample_error.das with some errors to check here
})