tests/testthat/test_checkErrorLst.R

In nprcgenekeepr: Genetic Tools for Colony Management

#' Copyright(c) 2017-2024 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("checkErrorLst")
library(lubridate)
test_that("checkErrorLst sees errors when reported", {
  errorLst <- qcStudbook(nprcgenekeepr::pedGood, reportErrors = TRUE)
  expect_false(checkErrorLst(errorLst))
})
test_that("checkErrorLst does not see errors when notreported", {
  set_seed(10L)
  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(1L:12L, 8L, replace = TRUE), "-",
      sample(1L:28L, 8L, replace = TRUE), "-",
      sample(seq(0L, 15L, by = 3L), 8L, replace = TRUE) +
        2000L
    )),
    stringsAsFactors = FALSE, check.names = FALSE
  )
  errorLst <- qcStudbook(pedOne, reportErrors = TRUE)
  expect_true(checkErrorLst(errorLst))
  errorLst <- qcStudbook(nprcgenekeepr::pedFemaleSireMaleDam,
    reportErrors = TRUE
  )
  expect_true(checkErrorLst(errorLst))
})
## Most of this is tested via testing of functions that call this.
test_that("checkErrorLst returns FALSE is given NULL", {
  expect_false(checkErrorLst(NULL))
})