tests/testthat/test_local_writeOMLFlowXML.R

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

# test_that("writeOMLFlowXML", {
#   with_test_cache({
#     flow = getOMLFlow(5270)
#     xml.file = tempfile()
#     flow.xml = writeOMLFlowXML(flow, xml.file)
#     expect_true(file.exists(xml.file))
# 
#     # compare with local xml
#     doc = xmlParse(xml.file)
#     prev = as.list(getOMLConfig())
#     doc2 = xmlParse(normalizePath(paste0(prev$cachedir, "/flows/5270/flow.xml")))
#     expect_equal(doc, doc2)
#   })
# })