tests/testthat/test-update_rates.R

In xieshu95/Test-Trasie: Dynamical Assembly of Islands by Speciation, Immigration and Extinction

context("update_rates")

test_that("update rates use", {
 
  #testit::assert(is.matrix(c()))
  # Does not give errors. One day, it can be checked to be silent  
  set.seed(42)
  update_rates(
    timeval = 0, 
    totaltime = 1, 
    gam = 0.009, 
    mu = 2.0, 
    laa = 1.0, 
    lac = 2.5, 
    Apars = create_area_params(
      max_area = 1.0, 
      proportional_peak_t = 0.5, 
      peak_sharpness = 1.0, 
      total_island_age = 1.0
    ), 
    Epars = c(0.5, 10.0),
    island_ontogeny = translate_island_ontogeny("beta"), 
    extcutoff = 1000.0, 
    K = 3, 
    island_spec = c(), 
    mainland_n = 1, 
    t_hor = 0.5
  )
  are_rates
})

test_that("update_rates classic behavior", {
  
  #testit::assert(is.matrix(c()))
  # Does not give errors. One day, it can be checked to be silent  
  set.seed(42)
  update_rates(
    timeval = 0, 
    totaltime = 1, 
    gam = 0.009, 
    mu = 2.0, 
    laa = 1.0, 
    lac = 2.5, 
    Apars = NULL, 
    Epars = NULL,
    island_ontogeny = translate_island_ontogeny("const"), 
    extcutoff = 1000.0, 
    K = 3, 
    island_spec = c(), 
    mainland_n = 1, 
    t_hor = 0.5
  )
  
})

test_that("use trait state params", {

  set.seed(42)
  expect_silent(
    update_rates(
      timeval = 0, 
      totaltime = 1, 
      gam = 0.009, 
      mu = 2.0, 
      laa = 1.0, 
      lac = 2.5, 
      Apars = NULL, 
      Epars = NULL,
      island_ontogeny = translate_island_ontogeny("const"), 
      extcutoff = 1000.0, 
      K = 3, 
      island_spec = c(), 
      mainland_n = 1, 
      t_hor = 0.5,
      Tpars = create_test_trait_state_params()
    )
  )
  
})