tests/testthat/test_server_uploadOMLStudy.R

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

# test_that("uploadOMLStudy", {
#   study = makeOMLStudy(alias = "test_alias", name = "Test Upload from R", description = "Just testing", task.id = 1)
#   expect_class(study, "OMLStudy")
#   id = uploadOMLStudy(study)
#   expect_s3_class(id, "integer")
# 
#   # download study again
#   study2 = getOMLStudy(id)
#   expect_s3_class(study, "OMLStudy")
# 
#   # delete study again
#   deleteOMLObject(id, object = "study")
# })