tests/testthat/test-update.R

In poissonconsulting/ypr: Yield Per Recruit

test_that("ypr_update population works", {
  expect_identical(ypr_update(ypr_population(), Rk = 2.5), ypr_population(Rk = 2.5))
})

test_that("ypr_update populations works", {
  expect_identical(ypr_update(ypr_populations(), Rk = 2.5), ypr_populations(Rk = 2.5))
})

test_that("ypr_update ecotypes works", {
  expect_identical(ypr_update(ypr_ecotypes(), Rk = 2.5), ypr_ecotypes(Rk = 2.5))
})

test_that("update population works", {
  expect_identical(update(ypr_population(), Rk = 2.5), ypr_population(Rk = 2.5))
})

test_that("update populations works", {
  expect_identical(update(ypr_populations(), Rk = 2.5), ypr_populations(Rk = 2.5))
})

test_that("update ecotypes works", {
  expect_identical(update(ypr_ecotypes(), Rk = 2.5), ypr_ecotypes(Rk = 2.5))
})

test_that("ypr_update population works no update", {
  expect_identical(ypr_update(ypr_population(Rk = 2.5)), ypr_population(Rk = 2.5))
})

test_that("ypr_update populations works no update", {
  expect_identical(ypr_update(ypr_populations(Rk = 2.5)), ypr_populations(Rk = 2.5))
})

test_that("ypr_update ecotypes works", {
  expect_identical(ypr_update(ypr_ecotypes(Rk = 2.5)), ypr_ecotypes(Rk = 2.5))
})

test_that("ypr_update population errors if multiple values", {
  expect_error(ypr_update(ypr_population(), Rk = c(2.5, 1.5)),
               "`Rk` must be a scalar \\(length 1\\)\\.")
})

test_that("ypr_update population errors if missing value", {
  expect_error(ypr_update(ypr_population(), Rk = NA_real_),
               "`Rk` must not have any missing values\\.")
})

test_that("ypr_update population errors if outside range", {
  expect_error(ypr_update(ypr_population(), Rk = 1001),
               "`Rk` must be between 0 and 100, not 1001\\.")
})

test_that("ypr_update populations renames", {
  expect_named(ypr_update(ypr_populations(Rk = c(2.5, 1.5), names = c("t1", "t2")), Linf = 200),
               c("Rk_1_5", "Rk_2_5"))
})

test_that("ypr_update ecotypes renames", {
  expect_named(ypr_update(ypr_ecotypes(k = c(2.5, 1.5), names = c("t1", "t2")), Linf = 200),
               c("k_2_5", "k_1_5"))
})

test_that("ypr_update populations works scalar with multiple parameters", {
  expect_identical(ypr_update(ypr_populations(Rk = c(2.5, 1.5)), Linf = 200), ypr_populations(Rk = c(2.5, 1.5), Linf = 200))
})

test_that("ypr_update populations works on multiple values with scalar", {
  expect_identical(ypr_update(ypr_populations(Rk = c(2.5, 1.5)), Rk = 2.5), ypr_populations(Rk = c(2.5, 2.5), expand = FALSE))
})

test_that("ypr_update ecotypes works multiple scalar if different", {
  expect_identical(ypr_update(ypr_populations(Rk = c(2.5, 1.5)), Linf = 200), ypr_populations(Rk = c(2.5, 1.5), Linf = 200))
})

test_that("ypr_update ecotypes errors if end up with multiple the same", {
  expect_error(ypr_update(ypr_ecotypes(Rk = c(2.5, 1.5)), Rk = 2.5),
               "`Rk` must be the same across all elements\\.")
})