tests/testthat/test-nexld.R

In cboettig/nexld: 'NeXML' in 'JSON-LD'

testthat::context("test-nexld: basic tests")

library(nexld)
library(jsonlite)

ex <- system.file("extdata/example.xml", package = "nexld")

testthat::test_that("we can parse xml into a json-list", {
  json <- xml_to_json(ex)
  testthat::expect_is(json, "json")
})

testthat::test_that("@context is created", {
  json <- xml_to_json(ex)
  jl <- jsonlite::fromJSON(json)

  expect_true("@context" %in% names(jl))
  context <- context_namespaces(jl$`@context`)

  expect_is(context, 'list')
  expect_is(context[["@base"]], 'character')
  expect_match(context[["@base"]], 'http')
})

library(jsonld)

testthat::test_that("we can expand and compact successfully", {
  # uses the base R "bizzaro pipe" ->.;
  xml_to_json(ex) ->.;
    jsonld_expand(.) ->.;
    jsonld_compact(., '{"@vocab": "http://www.nexml.org/2009/"}') ->
    out

  testthat::expect_is(out, "json")
})

testthat::test_that("we can go from json back to xml", {


  json <- parse_nexml(ex)
  ## fails on json <- xml_to_json(ex)
  xml <- json_to_xml(json)
  testthat::expect_is(xml, "xml_document")

})



testthat::test_that("we can validate after roundtrip", {

  ex <- system.file("extdata/example.xml", package = "nexld")
  json <- xml_to_json(ex)
  json_to_xml(json, "ex.xml")
  testthat::expect_true(nexml_validate("ex.xml"))
  #unlink("ex.xml")
})