tests/testthat/test-tabulate-sr.R

In poissonconsulting/ypr: Yield Per Recruit

test_that("ypr_tabulate_sr population", {
  sr <- ypr_tabulate_sr(ypr_population())

  expect_s3_class(sr, "tbl_df")
  expect_snapshot_data(sr, "srpopulation")
})

test_that("ypr_tabulate_sr populations", {
  sr <- ypr_tabulate_sr(ypr_populations(Rk = c(3, 5)))

  expect_s3_class(sr, "tbl_df")
  expect_snapshot_data(sr, "srpopulationRk")
})

test_that("ypr_tabulate_sr ecotypes", {
  sr <- ypr_tabulate_sr(ypr_ecotypes(Linf = c(70, 80), RPR = c(0.8, 0.2)))

  expect_s3_class(sr, "tbl_df")
  expect_snapshot_data(sr, "srecotypes")
})