add test

NOAA-FIMS · Jun 19, 2024 · 3eee678 · 3eee678
1 parent 4b77013
commit 3eee678
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-prior-multi-module.R b/tests/testthat/test-prior-multi-module.R
@@ -111,6 +111,7 @@ DataLL2$set_distribution_links("data", Pop2$get_id(), Pop2$get_module_name(), "l
 #set up shared prior for logk
 GrowthKPrior <- new(NormalLPDF)
 GrowthKPrior$expected_value <- new(VariableVector, rep(mu[2], 2), 2)
+# GrowthKPrior$expected_value <- new(VariableVector, rep(mu[2], 1), 1)
 GrowthKPrior$input_type <- "prior"
 GrowthKPrior$log_sd[1]$value <- log(0.1579867)
 #link prior log-likelihood to the logk parameters from vonB1 and vonB2
@@ -128,6 +129,10 @@ Data <- list(
   y = get_data_vector()
 )
 
+test_that("check input data", {
+  expect_equal(c(length.data1, length.data2), Data$y)
+})
+
 #create a parameter list
 Parameters <- list(
   p = get_parameter_vector()