From cd020c22940bbd8f8e68f27b482bc61cbfa2bcf8 Mon Sep 17 00:00:00 2001
From: mollie brooks <mollieebrooks@gmail.com>
Date: Mon, 25 Dec 2023 17:08:47 +0100
Subject: [PATCH] remove broken test

---
 glmmTMB/tests/testthat/test-methods.R | 30 +++++++++++++--------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/glmmTMB/tests/testthat/test-methods.R b/glmmTMB/tests/testthat/test-methods.R
index 4ba779c7..06fcce50 100644
--- a/glmmTMB/tests/testthat/test-methods.R
+++ b/glmmTMB/tests/testthat/test-methods.R
@@ -659,18 +659,18 @@ test_that("weighted residuals", {
                      tolerance = 1e-6)
     }
 })
-
-test_that("bad inversion in vcov", {
-    skip_on_os(c("windows", "linux"))
-    d <- readRDS(system.file("test_data", "strengejacke_nasummary.rds",
-                             package = "glmmTMB"))
-    m <- glmmTMB(
-        QoL ~ time + age + x_tv_dm + x_tv_gm + z1_ti + z2_ti + (1 + time | ID) + (1 + x_tv_dm | ID),
-        data = d,
-        REML = TRUE
-    )
-    ## only fails on some platforms ... this is sufficient for now ... FIXME
-    if (getRversion() >= "4.3.0") {
-        expect_true(all(is.na(vcov(m)$cond)))
-    }
-})
+# This test started also giving a warning on os "mac".
+# test_that("bad inversion in vcov", {
+#     skip_on_os(c("windows", "linux"))
+#     d <- readRDS(system.file("test_data", "strengejacke_nasummary.rds",
+#                              package = "glmmTMB"))
+#     m <- glmmTMB(
+#         QoL ~ time + age + x_tv_dm + x_tv_gm + z1_ti + z2_ti + (1 + time | ID) + (1 + x_tv_dm | ID),
+#         data = d,
+#         REML = TRUE
+#     )
+#     ## only fails on some platforms ... this is sufficient for now ... FIXME
+#     if (getRversion() >= "4.3.0") {
+#         expect_true(all(is.na(vcov(m)$cond)))
+#     }
+# })