tests/testthat/test_business_requirements.R

In kikirinrin/otolithr:

context("Business requirements")

test_that("format of output data frame", {
  expect_setequal(
    colnames(generate_mock()),
    c("ID", "Cruise", "Station", "SampleNo", "BL_mm", "IncNo", "iAge", "Species",
      "IncWidth_microm", "OR_microm", "BackCalBL_mm", "Age", "DateCollected",
      "DateHatched")
  )
})