Add test

stan-dev · May 22, 2024 · e828453 · e828453
1 parent 675979a
commit e828453
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: cmdstanr
 Title: R Interface to 'CmdStan'
-Version: 0.8.0
+Version: 0.8.0.9000
 Date: 2024-05-18
 Authors@R:
     c(person(given = "Jonah", family = "Gabry", role = "aut",

diff --git a/tests/testthat/test-model-expose-functions.R b/tests/testthat/test-model-expose-functions.R
@@ -419,3 +419,17 @@ test_that("Exposing functions with precompiled model gives meaningful error", {
     fixed = TRUE
   )
 })
+
+test_that("Functions with SUNDIALS/KINSOL methods link correctly", {
+  modcode <- "
+    functions {
+      vector dummy_functor(vector guess, vector theta, data array[] real tails, data array[] int x_i) {
+        return [1, 1]';
+      }
+      vector call_solver(vector guess, vector theta, data array[] real tails, data array[] int x_i) {
+        return algebra_solver_newton(dummy_functor, guess, theta, tails, x_i);
+      }
+    }"
+  mod <- cmdstan_model(write_stan_file(modcode), force_recompile=TRUE)
+  expect_no_error(mod$expose_functions())
+})