From b1c78b4076880fc65923d0274dd3bab15b1a16e2 Mon Sep 17 00:00:00 2001 From: Andrew Johnson Date: Tue, 4 Mar 2025 04:32:08 +0000 Subject: [PATCH] Remove extra parameter breaking tests --- tests/testthat/test-fit-gq.R | 2 +- tests/testthat/test-fit-mcmc.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-fit-gq.R b/tests/testthat/test-fit-gq.R index 09e73213d..33cd62bed 100644 --- a/tests/testthat/test-fit-gq.R +++ b/tests/testthat/test-fit-gq.R @@ -90,7 +90,7 @@ test_that("print() method works after gq", { # make sure the row order is correct out <- capture.output(fit_gq$print(c("y_rep[1]", "sum_y", "y_rep[3]"))) expect_length(out, 4) - expect_match(out[1], " variable", out[1]) + expect_match(out[1], " variable") expect_match(out[2], " y_rep[1]", fixed = TRUE) expect_match(out[3], " sum_y") expect_match(out[4], " y_rep[3]", fixed = TRUE) diff --git a/tests/testthat/test-fit-mcmc.R b/tests/testthat/test-fit-mcmc.R index 2d3388338..6876fd5d4 100644 --- a/tests/testthat/test-fit-mcmc.R +++ b/tests/testthat/test-fit-mcmc.R @@ -151,7 +151,7 @@ test_that("print() method works after mcmc", { # make sure the row order is correct out <- capture.output(fit$print(c("theta[1]", "tau", "mu", "theta_raw[3]"))) expect_length(out, 5) - expect_match(out[1], " variable", out[1]) + expect_match(out[1], " variable") expect_match(out[2], " theta[1]", fixed = TRUE) expect_match(out[3], " tau") expect_match(out[4], " mu")