tests/testthat/test-hash.R

In anonymizer: Anonymize Data Containing Personally Identifiable Information

library(anonymizer)
context("hash()")

test_that("Produces the correct output.", {
  expect_equal(hash("a", .algo = "sha256"), "fb1a678ef965ad4a66c712d2161f20319091cb4e7611e1925df671018c833f72")
  expect_equal(hash("a", .algo = "sha256", .seed = 1), "fb1a678ef965ad4a66c712d2161f20319091cb4e7611e1925df671018c833f72")
  expect_equal(hash("a", .algo = "sha256", .seed = 2), "fb1a678ef965ad4a66c712d2161f20319091cb4e7611e1925df671018c833f72")
})

test_that("Produces the correct output type.", {
  expect_is(hash(letters), "character")
})

test_that("Produces the correct errors.", {
  expect_error(hash(mtcars))
})