tests/testthat/test-check_event_times.R

In joshwlambert/DAISIEmainland: Simulates Data for Phylogenetic Data on Islands for DAISIE with the Addition of Mainland Dynamics

test_that("use", {
  expect_silent(check_event_times(3.14))
  expect_silent(check_event_times(c(1.0, 0.24)))
  expect_silent(check_event_times(c(1.0, 0.24, 0.00001)))
  expect_error(check_event_times(c(1.0, 123.456)))
  expect_error(check_event_times(-1.0))
  expect_error(check_event_times(NULL))
  expect_error(check_event_times(NA))
  expect_error(check_event_times(Inf))
  expect_error(check_event_times(c()))
  expect_error(check_event_times(list()))
  expect_error(check_event_times("nonsense"))
})