tests/testthat/test_1.R

In dmenne/teststan: What the Package Does (One Line, Title Case)

context("Trivial tests for teststan")

test_that("stanmodels exist", {
  expect_true(exists("stanmodels"), "No stanmodels found")
})

test_that("stanmodels$test1 exists", {
  expect_silent(stanmodels$test1)
})

test_that("Sampling from Stan works", {
  fit = simple_stan()
  expect_s4_class(fit, "stanfit")
})