tests/testthat/test_202_extract_root_hash.R

In rkrug/ROriginStamp: Interface to OriginStamp API to Obtain Trusted Time Stamps

test_that(
  "extract_root_hash",
  {
    expect_snapshot_error(
      extract_proof("ddd"),
      cran = FALSE
    )
    expect_snapshot(
      x = extract_root_hash(system.file("certificate.Bitcoin.pdf", package = "ROriginStamp")),
      cran = TRUE
    )
    expect_snapshot(
      x = extract_root_hash(system.file("proof.Bitcoin.xml", package = "ROriginStamp")),
      cran = TRUE
    )
    expect_snapshot(
      x = extract_root_hash(system.file("proof.Bitcoin.xml", package = "ROriginStamp")),
      cran = TRUE
    )
  }
)