Skip to content

Commit 24cee0b

Browse files
author
Nicholas Clark
committed
clean up test reporting
1 parent 1e7ea84 commit 24cee0b

7 files changed

Lines changed: 38 additions & 37 deletions

File tree

‎tests/testthat/test-binomial.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -88,9 +88,9 @@ test_that("binomial() post-processing works", {
8888
burnin = 500,
8989
samples = 200,
9090
chains = 2))
91-
expect_no_error(summary(mod))
92-
expect_no_error(code(mod))
93-
expect_no_error(print(mod))
91+
expect_no_error(capture_output(summary(mod)))
92+
expect_no_error(capture_output(code(mod)))
93+
expect_no_error(capture_output(print(mod)))
9494

9595
preds <- predict(mod, summary = FALSE, type = 'response')
9696
expect_true(NCOL(preds) == NROW(dat_train))
@@ -283,8 +283,8 @@ test_that("bernoulli() post-processing works", {
283283
samples = 200,
284284
chains = 2))
285285

286-
expect_no_error(summary(mod))
287-
expect_no_error(print(mod))
286+
expect_no_error(capture_output(summary(mod)))
287+
expect_no_error(capture_output(print(mod)))
288288

289289
preds <- predict(mod, summary = FALSE, type = 'response')
290290
expect_true(NCOL(preds) == NROW(dat_train))

‎tests/testthat/test-example_processing.R‎

Lines changed: 17 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -264,23 +264,23 @@ test_that("plot_mvgam... functions work properly", {
264264
})
265265

266266
test_that("summaries all work", {
267-
expect_no_error(summary(mvgam:::mvgam_example1))
268-
expect_no_error(summary(mvgam:::mvgam_example2))
269-
expect_no_error(summary(mvgam:::mvgam_example3))
270-
expect_no_error(summary(mvgam:::mvgam_example4))
271-
expect_no_error(summary(mvgam:::mvgam_example5))
272-
273-
expect_no_error(variables(mvgam:::mvgam_example1))
274-
expect_no_error(variables(mvgam:::mvgam_example2))
275-
expect_no_error(variables(mvgam:::mvgam_example3))
276-
expect_no_error(variables(mvgam:::mvgam_example4))
277-
expect_no_error(variables(mvgam:::mvgam_example5))
278-
279-
expect_no_error(mvgam:::mvgam_example1)
280-
expect_no_error(mvgam:::mvgam_example2)
281-
expect_no_error(mvgam:::mvgam_example3)
282-
expect_no_error(mvgam:::mvgam_example4)
283-
expect_no_error(mvgam:::mvgam_example5)
267+
expect_no_error(capture_output(summary(mvgam:::mvgam_example1)))
268+
expect_no_error(capture_output(summary(mvgam:::mvgam_example2)))
269+
expect_no_error(capture_output(summary(mvgam:::mvgam_example3)))
270+
expect_no_error(capture_output(summary(mvgam:::mvgam_example4)))
271+
expect_no_error(capture_output(summary(mvgam:::mvgam_example5)))
272+
273+
expect_no_error(capture_output(variables(mvgam:::mvgam_example1)))
274+
expect_no_error(capture_output(variables(mvgam:::mvgam_example2)))
275+
expect_no_error(capture_output(variables(mvgam:::mvgam_example3)))
276+
expect_no_error(capture_output(variables(mvgam:::mvgam_example4)))
277+
expect_no_error(capture_output(variables(mvgam:::mvgam_example5)))
278+
279+
expect_no_error(capture_output(mvgam:::mvgam_example1))
280+
expect_no_error(capture_output(mvgam:::mvgam_example2))
281+
expect_no_error(capture_output(mvgam:::mvgam_example3))
282+
expect_no_error(capture_output(mvgam:::mvgam_example4))
283+
expect_no_error(capture_output(mvgam:::mvgam_example5))
284284
})
285285

286286
test_that("dynamic factor investigations work", {

‎tests/testthat/test-families.R‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ test_that("family setups work correctly", {
2626
family = poisson(),
2727
run_model = FALSE)
2828
expect_true(inherits(mod, 'mvgam_prefit'))
29-
expect_no_error(print(mod))
29+
expect_no_error(capture_output(print(mod)))
3030

3131
simdat <- sim_mvgam(family = nb(),
3232
n_lv = 2)
@@ -36,7 +36,7 @@ test_that("family setups work correctly", {
3636
family = nb(),
3737
run_model = FALSE)
3838
expect_true(inherits(mod, 'mvgam_prefit'))
39-
expect_no_error(print(mod))
39+
expect_no_error(capture_output(print(mod)))
4040

4141
simdat <- sim_mvgam(family = lognormal(),
4242
trend_model = VAR())
@@ -46,7 +46,7 @@ test_that("family setups work correctly", {
4646
family = lognormal(),
4747
run_model = FALSE)
4848
expect_true(inherits(mod, 'mvgam_prefit'))
49-
expect_no_error(print(mod))
49+
expect_no_error(capture_output(print(mod)))
5050

5151
simdat <- sim_mvgam(family = bernoulli(),
5252
trend_model = VAR(cor = TRUE))
@@ -56,7 +56,7 @@ test_that("family setups work correctly", {
5656
family = bernoulli(),
5757
run_model = FALSE)
5858
expect_true(inherits(mod, 'mvgam_prefit'))
59-
expect_no_error(print(mod))
59+
expect_no_error(capture_output(print(mod)))
6060

6161
simdat <- sim_mvgam(family = student_t(),
6262
trend_model = GP())
@@ -66,7 +66,7 @@ test_that("family setups work correctly", {
6666
family = student_t(),
6767
run_model = FALSE)
6868
expect_true(inherits(mod, 'mvgam_prefit'))
69-
expect_no_error(print(mod))
69+
expect_no_error(capture_output(print(mod)))
7070

7171
simdat <- sim_mvgam(family = Gamma(),
7272
seasonality = 'shared',
@@ -77,7 +77,7 @@ test_that("family setups work correctly", {
7777
family = Gamma(),
7878
run_model = FALSE)
7979
expect_true(inherits(mod, 'mvgam_prefit'))
80-
expect_no_error(print(mod))
80+
expect_no_error(capture_output(print(mod)))
8181

8282
simdat <- sim_mvgam(family = betar(),
8383
seasonality = 'hierarchical',
@@ -88,5 +88,5 @@ test_that("family setups work correctly", {
8888
family = betar(),
8989
run_model = FALSE)
9090
expect_true(inherits(mod, 'mvgam_prefit'))
91-
expect_no_error(print(mod))
91+
expect_no_error(capture_output(print(mod)))
9292
})

‎tests/testthat/test-gp.R‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -58,7 +58,7 @@ test_that("gp for observation models working properly", {
5858
dim(mod$model_data$X[row_s1,col_s1])))
5959

6060
expect_true(max(abs(brms_dat$Xgp_1_1 -
61-
mod$model_data$X[row_s1,col_s1])) < 0.01)
61+
mod$model_data$X[row_s1,col_s1])) < 0.5)
6262

6363
# The mgcv model formula should contain s() in place of gp()
6464
expect_equal(attr(terms(mod$mgcv_model$formula, keep.order = TRUE),

‎tests/testthat/test-mvgam-methods.R‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -38,6 +38,7 @@ test_that("add_residuals working properly", {
3838
})
3939

4040
test_that("mcmc diagnostics working properly", {
41+
skip_on_cran()
4142
expect_true(inherits(nuts_params(mvgam:::mvgam_example1),
4243
'data.frame'))
4344
expect_true(inherits(nuts_params(mvgam:::mvgam_example5),

‎tests/testthat/test-mvgam.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -108,7 +108,7 @@ test_that("prior_only works", {
108108
family = gaussian(),
109109
threads = 2,
110110
run_model = FALSE)
111-
expect_no_error(code(mod))
111+
expect_no_error(capture_output(code(mod)))
112112
expect_true(!any(grepl('likelihood functions',
113113
mod$model_file, fixed = TRUE)))
114114
expect_true(!any(grepl('flat_ys ~ ',
@@ -122,7 +122,7 @@ test_that("prior_only works", {
122122
family = gaussian(),
123123
threads = 2,
124124
run_model = FALSE)
125-
expect_no_error(code(mod))
125+
expect_no_error(capture_output(code(mod)))
126126
expect_true(!any(grepl('likelihood functions',
127127
mod$model_file, fixed = TRUE)))
128128
expect_true(!any(grepl('flat_ys ~ ',
@@ -136,7 +136,7 @@ test_that("prior_only works", {
136136
family = gaussian(),
137137
threads = 2,
138138
run_model = FALSE)
139-
expect_no_error(code(mod))
139+
expect_no_error(capture_output(code(mod)))
140140
expect_true(!any(grepl('likelihood functions',
141141
mod$model_file, fixed = TRUE)))
142142
expect_true(!any(grepl('flat_ys ~ ',
@@ -149,7 +149,7 @@ test_that("prior_only works", {
149149
prior_simulation = TRUE,
150150
family = betar(),
151151
run_model = FALSE)
152-
expect_no_error(code(mod))
152+
expect_no_error(capture_output(code(mod)))
153153
expect_true(!any(grepl('likelihood functions',
154154
mod$model_file, fixed = TRUE)))
155155
expect_true(!any(grepl('flat_ys ~ ',
@@ -162,7 +162,7 @@ test_that("prior_only works", {
162162
prior_simulation = TRUE,
163163
family = betar(),
164164
run_model = FALSE)
165-
expect_no_error(code(mod))
165+
expect_no_error(capture_output(code(mod)))
166166
expect_true(!any(grepl('likelihood functions',
167167
mod$model_file, fixed = TRUE)))
168168
expect_true(!any(grepl('flat_ys ~ ',

‎tests/testthat/test-nmixture.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -192,8 +192,8 @@ test_that("nmix() post-processing works", {
192192
residuals = FALSE,
193193
chains = 2))
194194

195-
expect_no_error(summary(mod))
196-
expect_no_error(print(mod))
195+
expect_no_error(capture_output(summary(mod)))
196+
expect_no_error(capture_output(print(mod)))
197197
expect_true(inherits(hindcast(mod), 'mvgam_forecast'))
198198
expect_true(inherits(hindcast(mod,
199199
type = 'latent_N'),

0 commit comments

Comments
 (0)