tests/testthat/test_print.summary.nprcgenekeeprErr.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
# This file is part of nprcgenekeepr
context("print.summary.nprcgenekeeprErr")
library(testthat)
library(lubridate)
library(stringi)

set_seed(10)
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("print.summary.nprcgenekeeprErr prints expected output", {
  pedClean <- qcStudbook(pedOne, minParentAge = NULL)
  expect_success(expect_output(summary(qcStudbook(
    pedClean, minParentAge = NULL, reportErrors = TRUE)), NA))
  expect_failure(expect_output(print(summary(qcStudbook(pedOne,
                                                        reportErrors = TRUE))),
                               NA),
                 "produced output")
  })