attic/testthat/test_base_configureOpenML.R

In openml/openml-r: Open Machine Learning and Open Data Platform

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)
})