tests/testthat/test-create_area_params.R

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

context("create_area_pars")

test_that("minimal use", {
  expect_silent(
    create_area_pars(
      max_area = 10,
      proportional_peak_t = 0.5,
      peak_sharpness = 1,
      total_island_age = 5,
      sea_level_amplitude = 5,
      sea_level_frequency = 10,
      island_gradient_angle = 45
    )
  )
  out <- create_area_pars(
    max_area = 10,
    proportional_peak_t = 0.5,
    peak_sharpness = 1,
    total_island_age = 5,
    sea_level_amplitude = 5,
    sea_level_frequency = 10,
    island_gradient_angle = 45
  )
  reference <- list(
    max_area = 10,
    proportional_peak_t = 0.5,
    peak_sharpness = 1,
    total_island_age = 5,
    sea_level_amplitude = 5,
    sea_level_frequency = 10,
    island_gradient_angle = 45
  )
  expect_equal(out, reference)
})

test_that("abuse", {
  expect_error(
    create_area_pars(
      max_area = 0,
      proportional_peak_t = 0.5,
      peak_sharpness = 1,
      total_island_age = 5,
      sea_level_amplitude = 5,
      sea_level_frequency = 10,
      island_gradient_angle = 45
    ), regexp = "max_area > 0 is not TRUE"
  )
})