if (require("testthat") && requireNamespace("rstanarm", quietly = TRUE)) {

  test_that("map_estimate", {
    testthat::expect_equal(
      as.numeric(map_estimate(distribution_normal(1000))),
      0,
      tolerance = 0.01
    )
  })




  if (require("insight") && packageVersion("insight") > "0.8.2") {
    m <- insight::download_model("stanreg_merMod_5")

    test_that("map_estimate", {
      testthat::expect_equal(
        map_estimate(m, effects = "all")$Parameter,
        colnames(as.data.frame(m))[1:21]
      )
    })

    m <- insight::download_model("brms_zi_3")

    test_that("map_estimate", {
      testthat::expect_equal(
        map_estimate(m, effects = "all", component = "all")$Parameter,
        c("b_Intercept", "b_child", "b_camper", "r_persons.1.Intercept.",
          "r_persons.2.Intercept.", "r_persons.3.Intercept.", "r_persons.4.Intercept.",
          "sd_persons__Intercept", "b_zi_Intercept", "b_zi_child", "b_zi_camper",
          "r_persons__zi.1.Intercept.", "r_persons__zi.2.Intercept.", "r_persons__zi.3.Intercept.",
          "r_persons__zi.4.Intercept.", "sd_persons__zi_Intercept")
      )
    })
  }
}