tests/testthat/test_getMinParentAge.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("getMinParentAge")

test_that("getMinParentAge throws an error with no input defined", {
  expect_error(getMinParentAge(),
               "cannot coerce type 'closure' to vector of type 'double'")
})
test_that(
  "getMinParentAge throws an error with input improperly defined outside ui.R", {
    expect_error(getMinParentAge(input = list(minParentAge = 0.0)),
               "cannot coerce type 'closure' to vector of type 'double'")
})