tests/testthat/test-get-select.R

In pacific-hake/pacifichakemse: Management Strategy Evaluation of Pacific Hake

p_sel <- tibble::tibble(value = c(0.58, -0.23, 0.28, 0.38, 0.99),
                        source = rep("fish", 5),
                        space = rep(1, 5),
                        age = 1:5)
test_that("get_select() - Tests for argument errors", {
  expect_error(get_select(ages = NULL, p_sel = p_sel,
                          s_min = 2, s_max = 6))
  expect_error(get_select(ages = 0:20, p_sel = NULL,
                          s_min = 2, s_max = 6))
  expect_error(get_select(ages = 0:20, p_sel = p_sel,
                          s_min = NULL, s_max = 6))
  expect_error(get_select(ages = 0:20, p_sel = p_sel,
                          s_min = 2, s_max = NULL))
})

test_that("get_select() - Tests for correct output", {
  sel <- get_select(ages = 0:20, p_sel = p_sel,
                    s_min = 1, s_max = 6)
  out <- c(0, 0.14, 0.24, 0.19, 0.25, 0.37, rep(1, 15))
  expect_equal(sel, out, tolerance = 0.1)

})