tests/testthat/test-check_epoch.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {
  expect_silent(check_epoch(42))
  expect_silent(check_epoch(1))
  expect_silent(check_epoch(0))
  expect_error(check_epoch(c(1, 1)))
  expect_error(check_epoch(-1))
  expect_error(check_epoch("nonsense"))
  expect_error(check_epoch(""))
  expect_error(check_epoch(c()))
  expect_error(check_epoch(NA))
  expect_error(check_epoch(NULL))
  expect_error(check_epoch(Inf))
  expect_error(check_epoch(3.14))
})