fix test

easystats · Jul 23, 2024 · c2a908c · c2a908c
1 parent 80e8955
commit c2a908c
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/tests/testthat/test-brms.R b/tests/testthat/test-brms.R
@@ -513,15 +513,6 @@ test_that("find_algorithm", {
   )
 })
 
-test_that("get_modelmatrix", {
-  out <- get_modelmatrix(m1)
-  expect_named(out, c("(Intercept)", "Age", "Base", "Trt1"))
-  m9 <- insight::download_model("brms_mo2")
-  skip_if(is.null(m9))
-  out <- get_modelmatrix(m9)
-  expect_named(out, c("(Intercept)", "gear"))
-})
-
 test_that("get_priors", {
   expect_equal(
     get_priors(m7),
@@ -889,3 +880,12 @@ test_that("clean_parameters", {
     ignore_attr = TRUE
   )
 })
+
+test_that("get_modelmatrix", {
+  out <- get_modelmatrix(m1)
+  expect_identical(dim(out), c(236L, 4L))
+  m9 <- insight::download_model("brms_mo2")
+  skip_if(is.null(m9))
+  out <- get_modelmatrix(m9)
+  expect_identical(dim(out), c(32L, 2L))
+})