test_that("basic example works", { getex <- neojags:::example_neojags() })