tests/testthat/test-get_thor.R

In xieshu95/Trait_dependent_TraiSIE: Dynamical Assembly of Islands by Speciation, Immigration and Extinction

context("get_t_hor")

test_that("minimal use", {
  
  expect_silent(
    get_t_hor(
      timeval = 1,
      totaltime = 5,
      ext = 1,
      Tpars = NULL,
      Apars = create_area_params(max_area = 10,
                                 proportional_peak_t = 0.5,
                                 peak_sharpness = 1,
                                 total_island_age = 5),
      ext_multiplier = 0.5,
      island_ontogeny = translate_island_ontogeny("beta"),
      t_hor = NULL
    )
  )
})

test_that("classic behavior t_hor", {
  
  # That is, a simulation without island ontogeny
  total_time <- 12.34
  expected <- total_time
  created <- get_t_hor(
    timeval = 1,
    totaltime = total_time,
    Tpars = NULL,
    Apars = NULL,
    ext_multiplier = 0.5,
    island_ontogeny = translate_island_ontogeny("const"),
    t_hor = NULL
  )
  expect_equal(created, expected)
  
})