tests/testthat/test-md5.R

In mark: Miscellaneous, Analytic R Kernels

test_that("md5() works", {
  expect_identical(
    md5(letters),
    "d50f072f51db46c1736ee43adbba195f",
    ignore_attr = "class"
  )

  expect_identical(
    md5(1:100),
    "9d6257190ff5b50a0242cea93afda52f",
    ignore_attr = "class"
  )

  expect_identical(
    md5(quick_dfl(a = 1)),
    "45aa38750405b63fd8cb81b938cdf76b",
    ignore_attr = "class"
  )
})

test_that("snapshots", {
  expect_snapshot(md5(letters))
  expect_snapshot(md5(1:100))
  expect_snapshot(md5(quick_dfl(a = 1)))
})