attic/testthat2/test_base_deleteOMLObject.R

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

context("deleteOMLObject")

test_that("deleteOMLObject", {
  run = getOMLRun(1)
  run.id = uploadOMLRun(run)
  expect_error(deleteOMLObject(id = 1, object = "run"), "Run is not owned by you")
  expect_error(deleteOMLObject(id = 123456789, object = "run"), "Run does not exists")

  # local sanity check (account needs read-write permissions)
  skip_on_travis()
  del = deleteOMLObject(id = run.id, object = "run")
  expect_equal(httr::status_code(del), 200)
  expect_error(deleteOMLObject(id = run.id, object = "run"), "Run does not exists")
})