From 84b8d2643abd43df108e5a10cb55c5cb678378d8 Mon Sep 17 00:00:00 2001 From: MOshima-PIFSC Date: Thu, 8 Feb 2024 15:36:17 -1000 Subject: [PATCH] adjust test values to match new model --- tests/testthat/test-HCxval.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/testthat/test-HCxval.R b/tests/testthat/test-HCxval.R index 8f29e9e..19ca7cf 100644 --- a/tests/testthat/test-HCxval.R +++ b/tests/testthat/test-HCxval.R @@ -58,10 +58,10 @@ test_that("SSretroComps returns the correct comp data for simple model", { ) retro_comps <- SSretroComps(retroModels) - expect_equal(retro_comps$n, 6) - expect_equal(retro_comps$startyrs, rep(26, 6)) - expect_equal(retro_comps$endyrs, rep(100, 6)) - expect_gt(nrow(retro_comps$con), 1) + expect_equal(retro_comps$n, 4) + expect_equal(retro_comps$startyrs, rep(2011, 4)) + expect_equal(retro_comps$endyrs, rep(2022, 4)) + #expect_gt(nrow(retro_comps$con), 1) expect_gt(nrow(retro_comps$len), 1) expect_gt(nrow(retro_comps$age), 1) })