tests/testthat/test-expose_dryRun.R

In rstan: R Interface to Stan

test_that("expose_functions works with dryRun", {
  funcode <- "
    functions {
      real rtn_real(real x) {
        return x;
      }
    }"

  expect_no_error(expose_stan_functions(stanc(model_code = funcode), dryRun = TRUE))
})