tests/testthat/test-gitSha.R

library(NGCHM)
context("git digest")

test_that("gitSha matches git sha computation", {
  # Test cases from http://stackoverflow.com/questions/552659/assigning-git-sha1s-without-git
  expect_equal(gitSha(""), "e69de29bb2d1d6434b8b29ae775ad8c2e48c5391")
  expect_equal(gitSha("foobar\n"), "323fae03f4606ea9991df8befbb2fca795e648fa")
})
MD-Anderson-Bioinformatics/NGCHM-R documentation built on April 1, 2024, 12:34 p.m.