R Under development (unstable) (2024-07-01 r86857 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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(as.numeric(g3_eval(
+     g3_suitability_andersen(0,1,2,3,4),
+     predstock = g3_stock('pred', 11:20),
+     stock = g3_stock('prey', 1:10))), as.numeric(c(
+         "11:12" = 1.39762234830867,
+         "12:13" = 1.76710448730415,
+         "13:14" = 1.92001105688051,
+         "14:15" = 1.98080983811489,
+         "15:16" = 1.99913177015507,
+         "16:17" = 1.99765923114992,
+         "17:18" = 1.98837494524607,
+         "18:19" = 1.97544436079439,
+         "19:20" = 1.96094041453242,
+         "20:Inf" = 1.94597890503981))), "g3_eval: substituted 2 stocks")
ok - g3_eval: substituted 2 stocks
> 
> 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.31    0.01    0.31 
# Looks like you passed all 7 tests.