From 6f0776b5be4834b4473aebcd18f7efb6fca15bed Mon Sep 17 00:00:00 2001 From: mark Date: Wed, 10 Aug 2016 11:34:39 +0200 Subject: [PATCH] added tests for print methods --- pkg/tests/testthat/test_trim.R | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/pkg/tests/testthat/test_trim.R b/pkg/tests/testthat/test_trim.R index d4cdda4..1c04aee 100644 --- a/pkg/tests/testthat/test_trim.R +++ b/pkg/tests/testthat/test_trim.R @@ -63,7 +63,18 @@ test_that("skylark-1d model",{ , info=sprintf("Coefficients column %d",i) ) } +}) +context("Output printers") +test_that("S3 output printers", { + data(skylark) + m2 <- trim(count ~ time + site, data=skylark, model=2, overdisp=TRUE, serialcor = TRUE) + expect_output(print(m2)) + expect_output(print(coef(m2))) + expect_output(print(wald(m2))) + expect_output(print(overall(m2))) + expect_output(print(totals(m2))) + expect_output(print(index(m2))) })