tests/testthat/test_methods.R

In RaphaelS1/survivalmodels: Models for Survival Analysis

test_that("print", {
  if (!requireNamespace("distr6", quietly = TRUE)) {
    skip("distr6 not installed.")
  }
  fit <- akritas(Surv(time, status) ~ ., data = rats[1:10, ])
  expect_output(print(fit), "akritas(formula = Surv(time, status) ~ ., data = rats[1:10, ])",
                fixed = TRUE)
  expect_output(summary(fit), "akritas(formula = Surv(time, status) ~ ., data = rats[1:10, ])",
                fixed = TRUE)
})