tests/testthat/test_ox_all.R

In acobos/ox: Reads OpenClinica xml export files

context("ox_all")

# getting the file address
file <- system.file("extdata", "odm1.3_full_example.xml",
                    package = "ox",
                    mustWork = TRUE)
# Parsing the xml file
doc <- XML::xmlParse(file)

# incorrect call
test_that("gives error when arg is not of expected class", {
  expect_error(ox_all(file))
})

# correct call
res <- ox_all(doc)

test_that("returns ox object", {
  expect_is(res, "ox_all")
  # ox list elements
  expect_true("data" %in% names(res))
  expect_true("metadata" %in% names(res))
  # ox data
  expect_is(res$data, "data.frame")
  # ox metadata
  expect_is(res$metadata$global_vars, "list")
  expect_is(res$metadata$event_def, "data.frame")
  expect_is(res$metadata$event_ref, "data.frame")
  expect_is(res$metadata$form_def, "data.frame")
  expect_is(res$metadata$form_ref, "data.frame")
  expect_is(res$metadata$group_def, "data.frame")
  expect_is(res$metadata$group_ref, "data.frame")
  expect_is(res$metadata$item_def, "data.frame")
  expect_is(res$metadata$item_ref, "data.frame")
  expect_is(res$metadata$codelist, "data.frame")
  expect_is(res$metadata$codelist_item, "data.frame")
  expect_is(res$metadata$codelist_ref, "data.frame")
  expect_is(res$metadata$units, "data.frame")
  expect_is(res$metadata$sites, "data.frame")
  expect_is(res$metadata$subjects, "data.frame")
})

# clean
rm(doc, file, res)