attic/testthat/test_base_writeOpenMLRunXML.R

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

context("writeOpenMLRunXML")

test_that("writeOpenMLRunXML", {
  lrn = makeLearner("classif.rpart", par.vals = list(minsplit = 5, maxdepth = 10))
  run.pars = makeRunParameterList(lrn)
  
  desc = makeOpenMLRun(task.id = 1, implementation.id = 300, parameter.setting = run.pars)
  file = tempfile()
  on.exit(unlink(file))
  writeOpenMLRunXML(desc, file)
  
  doc = parseXMLResponse(file, "Getting run results", "run")
  task.id = xmlRValI(doc, "/oml:run/oml:task_id")
  impl.id = xmlRValI(doc, "/oml:run/oml:implementation_id")
  
  expect_true(task.id == 1 && impl.id == 300)
  
  extractInfoFromParSet = function(doc, path) {
    ns = getNodeSet(doc, path)
    return(unlist(lapply(ns, function(x) xmlValue(x))))
  }
  
  names = extractInfoFromParSet(doc, "/oml:run/oml:parameter_setting/oml:name")
  values = extractInfoFromParSet(doc, "/oml:run/oml:parameter_setting/oml:value")
  
  for (i in seq_along(run.pars)) {
    expect_true(run.pars[[i]]$name == names[i] && run.pars[[i]]$value == values[i])
  }
})