tests/testthat/test_headerDisplayNames.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
# This file is part of nprcgenekeepr
context("headerDisplayNames")
library(testthat)
test_that("headerDisplayNames makes the correct mapping", {
  expect_equal(headerDisplayNames(c("id", "sire", "dam", "gen")),
               c("Ego ID", "Sire ID", "Dam ID", "Generation #"))
  expect_equal(headerDisplayNames(c("spf", "second_name", "value")),
               c("SPF", "Second Allele", "Value Designation"))
})