tests/testthat/test_200_extract_proof.R

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

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