try to get cvrisk test passing in covr

boost-R · Aug 23, 2017 · c5dbe55 · c5dbe55
1 parent b6c6827
commit c5dbe55
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test-cvrisk.R b/tests/testthat/test-cvrisk.R
@@ -75,7 +75,7 @@ if (require("survival")) {
     fit <- glmboost(fm, data = ovarian, family = CoxPH())
 
     test_that("corrected crossvalidation works for CoxPH models", {
-        expect_warning(cvrisk(fit, corrected = TRUE), "All values in .grid. must be greater 0 if family = .CoxPH., hence 0 is dropped from grid")
+        expect_warning(cvrisk(fit, corrected = TRUE), "All values in .*grid.* must be greater 0 if family = .*CoxPH.*, hence 0 is dropped from grid")
 
         expect_silent(cvr <- cvrisk(fit, grid = seq(1, 101, by = 2), corrected = TRUE))
         expect_equal(dim(cvr), c(25, 51))
@@ -86,3 +86,5 @@ if (require("survival")) {
         expect_gt(mstop(cvr_uncor), 0)
     })
 }
+
+