tests/testthat/test_dat.huber2000.r

In metadat: Meta-Analysis Datasets

context("Checking: dat.huber2000")

library(digest)

test_that("md5 hash matches for the data", {
   if (getRversion() >= "4.6.0") {
      expect_match(digest(metadat::dat.huber2000, algo="md5"), "a937b78c3b22d5610d661ccd40444282")
   } else {
      expect_match(digest(metadat::dat.huber2000, algo="md5"), "eb1df5e6cb1d52428512c71410175918")
   }
})