tests/testthat/test_benchmark.R

In mlr-org/mlr3ordinal: Ordinal regression for mlr3

context("benchmark")

test_that("benchmark works", {
  clrn = GraphLearner$new(ppl("ordinal", lrn("classif.rpart")), task_type = "ordinal")
  rlrn = GraphLearner$new(ppl("ordinal", lrn("regr.rpart")), task_type = "ordinal")
  learners = list(lrn("ordinal.clm"), clrn, rlrn)
  task = tsk("winerating")
  bmr = suppressWarnings(benchmark(benchmark_grid(task, learners, rsmp("cv", folds = 3))))
  expect_benchmark_result(bmr)
})