tests/testthat/test-xml.R

context("XML interoperability checks")

test_that("DDI to XML conversion loses no information", {
  test_node <- build_branch_node("branchtest", attribs = list(attr = "yes"))

  expect_equal(as_ddi(as_xml(test_node)), test_node)
})

Try the rddi package in your browser

Any scripts or data that you put into this service are public.

rddi documentation built on Oct. 17, 2022, 5:11 p.m.