ParamLrner 100% test coverage

imbs-hl · Jul 19, 2024 · 3bd2ff9 · 3bd2ff9
1 parent 8842ffa
commit 3bd2ff9
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/.covrignore b/.covrignore
@@ -5,7 +5,6 @@
 ./R/NewLayer.R
 ./R/NewMetaLayer.R
 ./R/NewStudy.R
-./R/ParamLrner.R
 ./R/ParamVarSel.R
 ./R/predict.weightedMeanLearner.R
 ./R/PredictData.R

diff --git a/tests/testthat/test-ParamLrner.R b/tests/testthat/test-ParamLrner.R
@@ -3,7 +3,16 @@ ranger_param_lrner <- ParamLrner$new(id = "ParamRanger",
                              hyperparam_list = list(probability = TRUE,
                                                     mtry = 1L,
                                                     num.trees = 1000L))
-test_that("ParamLrner instantiates correctly", {
+test_that("ParamLrner: initialize and print", {
   expect_true(R6::is.R6(ranger_param_lrner))
   expect_equal(class(ranger_param_lrner)[1], "ParamLrner")
+  print(ranger_param_lrner)
+})
+
+test_that("ParamLrner: getParamLrner", {
+  expect_no_error(ranger_param_lrner$getParamLrner())
+})
+
+test_that("ParamLrner: getHyperparam", {
+  expect_no_error(ranger_param_lrner$getHyperparam())
 })