R Under development (unstable) (2025-04-18 r88159 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(unittest)
> 
> library(gadget3)
> 
> ok(ut_cmp_equal(
+     g3_eval(
+         g3_suitability_andersen(0,1,2,3,4),
+         predator_length = 99,
+         stock = g3_stock('prey', 1:10 * 10) ),
+     gadget3:::force_vector(c(
+         "10:20" = 1.5385642245386,
+         "20:30" = 1.90781891144376,
+         "30:40" = 1.99894574784489,
+         "40:50" = 1.97774955212781,
+         "50:60" = 1.91681934676797,
+         "60:70" = 1.83906905397844,
+         "70:80" = 1.75539377253919,
+         "80:90" = 1.67124659054669,
+         "90:100" = 1.58937906439558,
+         "100:Inf" = 1.51113553695681,
+         NULL ))), "g3_eval: substituted stock & iterator value")
ok - g3_eval: substituted stock & iterator value
> 
> ok(ut_cmp_equal(
+     g3_eval(quote( g3_param('x', value = 99) )),
+     99), "Used default value for param")
ok - Used default value for param
> ok(ut_cmp_equal(
+     g3_eval(quote( g3_param('x', value = 99) ), param.x = 88),
+     88), "Overrode g3_param with environment")
ok - Overrode g3_param with environment
> ok(ut_cmp_equal(
+     g3_eval(
+         g3_parameterized('lln.alpha', by_stock = TRUE, value = 99),
+         stock = g3_stock("fish", 1:10),
+         param.fish.lln.alpha = 123),
+     123), "Both evaluated stock-ified parameter and substituted")
ok - Both evaluated stock-ified parameter and substituted
> 
> ok_group("g3_eval error output", {
+     ok(ut_cmp_error({
+         g3_eval(quote( stock_prepend(stock, g3_param("x")) + stop('erk') ), stock = g3_stock("camel", 1), x = 99123)
+     }, 'erk'), "Show error message")
+     ok(ut_cmp_error({
+         g3_eval(quote( stock_prepend(stock, g3_param("x")) + stop('erk') ), stock = g3_stock("camel", 1), x = 99123)
+     }, 'g3_param\\("camel\\.x"\\)'), "Show converted formula")
+     ok(ut_cmp_error({
+         g3_eval(quote( stock_prepend(stock, g3_param("x")) + stop('erk') ), stock = g3_stock("camel", 1), x = 99123)
+     }, '99123'), "Show content of environment")
+ })
# g3_eval error output
ok - Show error message
ok - Show converted formula
ok - Show content of environment
> 
> proc.time()
   user  system elapsed 
   0.37    0.17    0.53 
1..7
# Looks like you passed all 7 tests.