tests/testthat/test-calc_max_spec.R

In Neves-P/DAISIErobustness: Test the Robustness of DAISIE to Geodynamics and Traits

test_that("use", {
  param_space_name <- "continental_cs"
  param_set <- 27
  set.seed(
    1,
    kind = "Mersenne-Twister",
    normal.kind = "Inversion",
    sample.kind = "Rejection"
  )

  param_space <- load_param_space(
    param_space_name = param_space_name)

  sim_pars <- extract_param_set(
    param_space_name = param_space_name,
    param_space = param_space,
    param_set = param_set)

  novel_sim <- DAISIErobustness:::run_novel_sim(
    param_space_name = param_space_name,
    sim_pars = sim_pars
  )

  expect_silent(calc_max_spec(novel_sim))
  expect_true(is.numeric(calc_max_spec(novel_sim)))
  expect_length(calc_max_spec(novel_sim), 1)
  expect_equal(calc_max_spec(novel_sim), 2)
})

test_that("abuse", {
  expect_error(calc_max_spec("novel_sim"))
})