tests/testthat/test-hash.R

In renv: Project Environments

test_that("whitespace does not affect hash", {

  descpath <- renv_tests_path("packages/breakfast/DESCRIPTION")
  contents <- readLines(descpath)
  hash <- renv_hash_description(descpath)

  # NOTE: this also implies that the hash should be stable
  # across different versions of R
  expect_identical(hash, "0fcd2a795901b4b21326a3e35442c97c")

  renv_scope_tempdir()
  descpath <- file.path(getwd(), "DESCRIPTION")

  for (whitespace in c(" ", "\t")) {
    writeLines(paste(contents, whitespace), descpath)
    expect_identical(renv_hash_description(descpath), hash)
  }

})

test_that("hash outputs do not change over time", {

  descpath <- file.path(getwd(), "resources/DESCRIPTION")
  hash <- renv_hash_description(descpath)
  expect_equal(hash, "2edf28b7db72297da02d913babfc1ef3")

})