tests: activate partical match tests (#354)

* tests: activate partical match tests

* ...

Author: be-marc

DESCRIPTION

@@ -37,6 +37,7 @@ Imports:
 Suggests:
     DiceKriging,
     e1071,
+    future,
     glmnet,
     kknn,
     knitr,

tests/testthat/setup.R

@@ -0,0 +1,14 @@
+old_opts = options(
+  warnPartialMatchArgs = TRUE,
+  warnPartialMatchAttr = TRUE,
+  warnPartialMatchDollar = TRUE
+)
+
+# https://github.com/HenrikBengtsson/Wishlist-for-R/issues/88
+old_opts = lapply(old_opts, function(x) if (is.null(x)) FALSE else x)
+
+lg = lgr::get_logger("mlr3")
+old_threshold = lg$threshold
+old_plan = future::plan()
+lg$set_threshold(0)
+future::plan("sequential")

tests/testthat/teardown.R

@@ -0,0 +1,4 @@
+options(old_opts)
+lg = lgr::get_logger("mlr3")
+lg$set_threshold(old_threshold)
+future::plan(old_plan)

tests/testthat/test_regr_ranger.R

@@ -78,7 +78,7 @@ test_that("quantile prediction", {
   learner$train(task)
   pred = learner$predict(task)
 
-  expect_matrix(pred$quantiles, ncol = 3L)
+  expect_matrix(pred$quantiles, ncols = 3L)
   expect_true(!any(apply(pred$quantiles, 1L, is.unsorted)))
   expect_equal(pred$response, pred$quantiles[, 2L])