From 98f96548ec80a2c892016ed4dd95d7353a4f00dc Mon Sep 17 00:00:00 2001
From: Nicholas Clark <uqnclar2@uq.edu.au>
Date: Fri, 30 Aug 2024 18:27:07 +1000
Subject: [PATCH] don't test approximations yet until brms updates the reading
 function

---
 tests/testthat/test-backends.R | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/tests/testthat/test-backends.R b/tests/testthat/test-backends.R
index ddabafe4..a6153ce0 100644
--- a/tests/testthat/test-backends.R
+++ b/tests/testthat/test-backends.R
@@ -3,26 +3,26 @@ context("backends")
 skip_on_cran()
 
 test_that("variationals are converted to stanfit appropriately", {
-  dat <- data.frame(y = rnorm(100, 0, 1),
-                    series = as.factor('series1'))
+  # dat <- data.frame(y = rnorm(100, 0, 1),
+  #                   series = as.factor('series1'))
+  # # mod <- SM(mvgam(y ~ 1,
+  # #              data = dat,
+  # #              family = gaussian(),
+  # #              algorithm = 'meanfield',
+  # #              silent = 2))
+  # # expect_true(inherits(mod, 'mvgam'))
+  #
   # mod <- SM(mvgam(y ~ 1,
   #              data = dat,
   #              family = gaussian(),
-  #              algorithm = 'meanfield',
+  #              algorithm = 'fullrank',
+  #              silent = 2))
+  # expect_true(inherits(mod, 'mvgam'))
+  #
+  # mod <- SM(mvgam(y ~ 1,
+  #              data = dat,
+  #              family = gaussian(),
+  #              algorithm = 'laplace',
   #              silent = 2))
   # expect_true(inherits(mod, 'mvgam'))
-
-  mod <- SM(mvgam(y ~ 1,
-               data = dat,
-               family = gaussian(),
-               algorithm = 'fullrank',
-               silent = 2))
-  expect_true(inherits(mod, 'mvgam'))
-
-  mod <- SM(mvgam(y ~ 1,
-               data = dat,
-               family = gaussian(),
-               algorithm = 'laplace',
-               silent = 2))
-  expect_true(inherits(mod, 'mvgam'))
 })