tests/testthat/test_006_hash.R

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

test_that(
  "hash",
  {
    expect_snapshot_error(
      hash(NULL),
      cran = FALSE
    )
    expect_snapshot_error(
      hash(LETTERS),
      cran = TRUE
    )
    expect_snapshot(
      {
        tf <- tempfile()
        write.csv(data.frame(letters, LETTERS, 1:26), tf)
        x <- list(
          hash         = hash(as.hash("2c5d36be542f8f0e7345d77753a5d7ea61a443ba6a9a86bb060332ad56dba38e")),
          file         = hash(tf),
          file_file    = hash_file(tf),
          LETTERS      = as.hash(LETTERS)
        )
        unlink(tf)
        x
      },
      cran = TRUE
    )
  }
)