tests/testthat/test_getChangedColsTab.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

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

set_seed(10)
pedSix <- nprcgenekeepr::pedSix
changedColsTab <- getChangedColsTab(qcStudbook(pedSix, reportChanges = TRUE, reportErrors = TRUE), "test")
test_that("getChangedColsTab creates predictable output", {
  expect_true(stri_detect_fixed(changedColsTab$children[[1]]$children[[1]],
                                pattern = "egoid to id"))
})