tests/testthat/old/test-macro_hs.R

wd = "../.."
hs_test_code = readLines(file.path(wd, "inst/stan_scaffolds/macro_hs.stan"))

test_that("simple horseshoe model is syntactically correct", {
  expect_type(parse_stan_macros(
    hs_test_code, hs_betas = stan_macro_horseshoe("1", "D")), "character")
})
Christopher-Peterson/macroStan documentation built on Oct. 30, 2019, 5:42 a.m.