tests/testthat/test_checkRequiredCols.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("checkRequiredCols")
library(stringi)
requiredCols <- getRequiredCols()
test_that("checkRequiredCols detects missing cols", {
  cols <- stri_c("id,sire,siretype,dam,damtype,sex,numberofparentsknown,birth,",
                 "arrivalatcenter,death,departure,status,ancestry,fromcenter?,",
                 "origin")
  expect_true(all(requiredCols %in% checkRequiredCols(cols, reportErrors = TRUE)))
})