tests/testthat/test-helpers-postprocess.R

In bmm: Easy and Accessible Bayesian Measurement Models Using 'brms'

test_that("bmm version is added to mock model", {
  fit <- bmm(
    formula = bmmformula(c ~ 1, kappa ~ 1),
    data = data.frame(y = rsdm(n = 10)),
    model = sdm(resp_error = "y"),
    backend = "mock",
    rename = F,
    mock = 1
  )
  expect_true("bmm" %in% names(fit$version))
})


test_that("get_mu_pars works", {
  a <- brms::brm(y ~ a, data.frame(y = c(1, 2, 3), a = c("A", "B", "C")),
    backend = "mock", mock_fit = 1, rename = F
  )
  mus <- get_mu_pars(a)
  expect_equal(mus, c("Intercept", "aB", "aC"))
})