diff --git a/.covrignore b/.covrignore index e02fd5e..47080a0 100644 --- a/.covrignore +++ b/.covrignore @@ -5,7 +5,6 @@ ./R/NewLayer.R ./R/NewMetaLayer.R ./R/NewStudy.R -./R/Param.R ./R/ParamLrner.R ./R/ParamVarSel.R ./R/predict.weightedMeanLearner.R diff --git a/tests/testthat/test-Param.R b/tests/testthat/test-Param.R index f6d5daa..5d262ed 100644 --- a/tests/testthat/test-Param.R +++ b/tests/testthat/test-Param.R @@ -1,7 +1,16 @@ ranger_param <- Param$new(id = "test_param", param_list = list(probability = TRUE, mtry = 1)) -test_that("Param instantiates correctly", { +test_that("Param: instantialize and print", { expect_true(R6::is.R6(ranger_param)) expect_equal(class(ranger_param)[1], "Param") + print(ranger_param) +}) + +test_that("Param: getId", { + ranger_param$getId() +}) + +test_that("Param: getParamList", { + ranger_param$getParamList() })