attic/testthat2/test_base_uploadOMLRun.R

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

context("uploadOMLRun")

test_that("uploadOMLRun", {
  # download a run and reupload it
  run = getOMLRun(1)
  expect_is(run, "OMLRun")
  expect_is(run$flow.id, "integer")
  expect_is(run$run.id, "integer")
  expect_is(run$task.id, "integer")
  maxrun = max(listOMLRuns(task.id = run$task.id)$run.id)
  run.id = uploadOMLRun(run)
  expect_is(run.id, "integer")
  expect_true(maxrun < run.id)
  run$flow.id = NA
  expect_error(uploadOMLRun(run), "Please provide a 'flow.id'")

  # upload self-created run
  lrn = makeLearner("classif.rpart")
  flow = uploadOMLFlow(lrn)
  task = getOMLTask(1L)
  res = runTaskMlr(task, lrn, scimark.vector = rep(1.5, 6))
  run = uploadOMLRun(res$run)
  expect_is(run.id, "integer")
  deleteOMLObject(run, object = "run")
  # FIXME: flow should be deletable if no runs are associated to it
  #deleteOMLObject(flow, object = "flow")
})