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")