tests/testthat/test_checkChangedColsLst.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("checkChangedColsLst")
library(nprcgenekeepr)
library(lubridate)
pedOne <- data.frame(ego_id = c("s1", "d1", "s2", "d2", "o1", "o2", "o3",
                               "o4"),
                   `si re` = c(NA, NA, NA, NA, "s1", "s1", "s2", "s2"),
                   dam_id = c(NA, NA, NA, NA, "d1", "d2", "d2", "d2"),
                    sex = c("F", "M", "M", "F", "F", "F", "F", "M"),
                    birth_date = mdy(
                      paste0(sample(1:12, 8, replace = TRUE), "-",
                             sample(1:28, 8, replace = TRUE), "-",
                             sample(seq(0, 15, by = 3), 8, replace = TRUE) +
                               2000)),
                    stringsAsFactors = FALSE, check.names = FALSE)

test_that("checkChangedColsLst identifies absence of column changes", {
  errorLst <- getEmptyErrorLst()
  expect_false(checkChangedColsLst(errorLst$changedCols))
})
test_that("checkChangedColsLst identifies presence of column changes", {
  errorLst <- qcStudbook(pedOne, reportErrors = TRUE, reportChanges = TRUE)
  expect_true(checkChangedColsLst(errorLst$changedCols))
})