tests/testthat/test-print.theta-summary.theta.R

context("Check print.theta and summary.theta")

theta <- rtheta()  # Create a random correctly formatted theta

test_that("Printing theta works", capture_output({
  expect_output(print(theta))
  expect_output(summary(theta))
  expect_identical(theta, print(theta))
  expect_identical(theta, summary(theta))
}))
AEBilgrau/GMCM documentation built on Nov. 9, 2021, 7:31 p.m.