attic/testthat/test_base_configureOpenML.R

context("configureOpenML")

test_that("getOptions and configureOpenML", {
  opt = getOpenMLOptions()
  expect_equal(length(opt), 3L)

  configureOpenML("show.info" = TRUE)
  expect_true(getOpenMLOption("show.info"))

  do.call(configureOpenML, opt)
  expect_equal(getOpenMLOptions(), opt)
})
openml/r documentation built on Oct. 21, 2022, 2:21 a.m.