tests/testthat/test_base_resample_makeResampleDesc.R

In shuodata/mlr-master: Machine Learning in R

context("makeResampleDesc")

test_that("makeResampleDesc", {
  desc1 = makeResampleDesc("CV", predict = "test", iters = 2)
  expect_equal(desc1$iters, 2)
  expect_equal(desc1$predict, "test")
  expect_error(makeResampleDesc("Foo", predict = "test", iters = 2), "Assertion on 'method' failed: Must be element of set")
  expect_error(makeResampleDesc("CV", predict = "Foo", iters = 2), "Assertion on 'predict' failed: Must be element of set")
})