tests/testthat/test-validatingCreatingContestants.R

In NotThatKindODr/Are-You-The-One-Sim: Simulate The Probability Of MTV's Are You The One?

#check the creatingContestingValidator 
test_that("check validator", {
  expect_equal(validateCreatingContestants(3), NULL)
  expect_error(validateCreatingContestants(3.2),"contestants MUST be a whole number greater than 1")
  expect_error(validateCreatingContestants("a"), "contestants MUST be a whole number greater than 1")
  expect_error(validateCreatingContestants(1), "contestants MUST be a whole number greater than 1")
  expect_error(validateCreatingContestants(FALSE), "contestants MUST be a whole number greater than 1")
})