tests/testthat/test-trackr_hash.R

In hamishgibbs/rtrackr: What the Package Does (One Line, Title Case)

testthat::test_that('trackr_hash works as expected', {
  source('test_data/test_df.R')
  
  output <- trackr_hash(df1)
  
  testthat::expect_true('hash' %in% colnames(output))
  
  testthat::expect_identical(output %>% dplyr::slice(1) %>% dplyr::pull(hash), digest::sha1('a1'))
  
})