tests/testthat/test-frame.R

In codemeta/codemetar: Generate 'CodeMeta' Metadata for R Packages

testthat::test_that(
  "we have fully compacted non-schema.org terms:", {
    skip_on_cran()
    skip_if_offline()

    library("jsonld")
    frame <- system.file("schema/frame_schema.json", package="codemetar")
    test <- system.file("examples/codemeta.json", package="codemetar")

    out <- jsonld_frame(test, frame)
    writeLines(out, "framed.json")

    library("jsonlite")
    ## Standardized codemeta object via framing
    codemeta <-read_json("framed.json")
    meta <- codemeta[["@graph"]][[1]]


  testthat::expect_null(meta$`codemeta:maintainer`$email)
  testthat::expect_match(meta$maintainer$email, ".*@gmail.com")


  #"Frame should result in missing fields being returned with explicit NULLs"

  testthat::expect_true("memoryRequirements" %in% names(meta))
  testthat::expect_null(meta$memoryRequirements)

  unlink("framed.json")
  })