update tests

Author: hfrick

tests/testthat/test_surv_reg.R

@@ -11,6 +11,8 @@ source("helpers.R")
 # ------------------------------------------------------------------------------
 
 test_that('primary arguments', {
+  withr::local_options(lifecycle_verbosity = "quiet")
+
   basic <- surv_reg()
   basic_flexsurv <- translate(basic %>% set_engine("flexsurv"))
 
@@ -46,6 +48,8 @@ test_that('primary arguments', {
 })
 
 test_that('engine arguments', {
+  withr::local_options(lifecycle_verbosity = "quiet")
+
   fs_cl <- surv_reg()
   expect_equal(translate(fs_cl %>% set_engine("flexsurv", cl = .99))$method$fit$args,
                list(
@@ -60,6 +64,8 @@ test_that('engine arguments', {
 
 
 test_that('updating', {
+  withr::local_options(lifecycle_verbosity = "quiet")
+
   expr1     <- surv_reg() %>% set_engine("flexsurv", cl = varying())
   expr1_exp <- surv_reg(dist = "lnorm") %>% set_engine("flexsurv", cl = .99)
   expect_equal(update(expr1, dist = "lnorm", cl = 0.99), expr1_exp)
@@ -75,7 +81,14 @@ test_that('updating', {
 })
 
 test_that('bad input', {
+  withr::local_options(lifecycle_verbosity = "quiet")
+
   expect_error(surv_reg(mode = ", classification"))
   expect_error(translate(surv_reg() %>% set_engine("wat")))
   expect_error(translate(surv_reg() %>% set_engine(NULL)))
 })
+
+test_that("deprecation warning", {
+  withr::local_options(lifecycle_verbosity = "warning")
+  expect_warning(surv_reg())
+})

tests/testthat/test_surv_reg_flexsurv.R

@@ -8,17 +8,17 @@ library(tibble)
 
 source(test_path("helper-objects.R"))
 
-
 basic_form <- Surv(time, status) ~ age
 complete_form <- Surv(time) ~ age
 
-surv_basic <- surv_reg() %>% set_engine("flexsurv")
-
 # ------------------------------------------------------------------------------
 
 test_that('flexsurv execution', {
   skip_if_not_installed("flexsurv")
 
+  withr::local_options(lifecycle_verbosity = "quiet")
+  surv_basic <- surv_reg() %>% set_engine("flexsurv")
+
   expect_error(
     res <- fit(
       surv_basic,
@@ -53,6 +53,9 @@ test_that('flexsurv execution', {
 test_that('flexsurv prediction', {
   skip_if_not_installed("flexsurv")
 
+  withr::local_options(lifecycle_verbosity = "quiet")
+  surv_basic <- surv_reg() %>% set_engine("flexsurv")
+
   res <- fit(
     surv_basic,
     Surv(time, status) ~ age,

tests/testthat/test_surv_reg_survreg.R

@@ -10,15 +10,15 @@ source(test_path("helper-objects.R"))
 basic_form <- Surv(time, status) ~ group
 complete_form <- Surv(time) ~ group
 
-surv_basic <- surv_reg() %>% set_engine("survival")
-surv_lnorm <- surv_reg(dist = "lognormal") %>% set_engine("survival")
-
 # ------------------------------------------------------------------------------
 
 test_that('survival execution', {
-
   skip_on_travis()
 
+  withr::local_options(lifecycle_verbosity = "quiet")
+  surv_basic <- surv_reg() %>% set_engine("survival")
+  surv_lnorm <- surv_reg(dist = "lognormal") %>% set_engine("survival")
+
   expect_error(
     res <- fit(
       surv_basic,
@@ -51,6 +51,10 @@ test_that('survival execution', {
 test_that('survival prediction', {
   skip_on_travis()
 
+  withr::local_options(lifecycle_verbosity = "quiet")
+  surv_basic <- surv_reg() %>% set_engine("survival")
+  surv_lnorm <- surv_reg(dist = "lognormal") %>% set_engine("survival")
+
   res <- fit(
     surv_basic,
     Surv(time, status) ~ age + sex,