tests/testthat/test-utils-json.R

In rocrateR: Tools for Creating and Manipulating RO-Crates

test_that("read_rocrate and write_rocrate works", {
  # create basic RO-Crate
  basic_crate <- rocrateR::rocrate()

  # write RO-Crate to temporary file
  tmp_file <- tempfile(fileext = ".json")

  # check that the temporary file doesn't exist
  expect_false(file.exists(tmp_file))

  # write to temporary file
  basic_crate |>
    rocrateR::write_rocrate(path = tmp_file)

  # check that the temporary file exists
  expect_true(file.exists(tmp_file))

  # read RO-crate from the temporary file
  suppressWarnings(
    new_ro_crate <- rocrateR::read_rocrate(tmp_file)
  )

  # compare the original RO-Crate to the loaded from the temporary file
  expect_equal(new_ro_crate, basic_crate)

  # delete temporary file
  unlink(tmp_file, force = TRUE)

  # verify that the temporary file was deleted
  expect_false(file.exists(tmp_file))
})

test_that(".validate_json_syntax works", {
  # expect error when passing NULL
  expect_error(.validate_json_syntax(NULL))

  # create basic RO-Crate
  basic_crate <- rocrateR::rocrate()

  # write RO-Crate to temporary file
  tmp_file <- tempfile(fileext = ".json")

  # check that the temporary file doesn't exist
  expect_false(file.exists(tmp_file))

  # write to temporary file
  basic_crate |>
    rocrateR::write_rocrate(path = tmp_file)

  # check that the temporary file exists
  expect_true(file.exists(tmp_file))

  # validate the syntax of the file
  expect_true(.validate_json_syntax(tmp_file))

  # delete temporary file
  unlink(tmp_file, force = TRUE)

  # verify that the temporary file was deleted
  expect_false(file.exists(tmp_file))
})