tests/testthat/test-hash_df.R

In pmcharrison/psychTestR: Framework for delivering psychological tests via Shiny

context("hash_df")

test_that("hash_df", {
  csv <- data.frame(
    key = c("A", "B", "C"),
    en = c("Hello", "Hi", "Goodbye"),
    fr = c("Bonjour", "Salut", "Au revoir"),
    stringsAsFactors = FALSE
  )
  expect_equal(csv, unhash_df(hash_df(csv, markdown = FALSE)))
  h <- hash_df(csv, markdown = FALSE)
  expect_equal(h$A$en, "Hello")
  expect_error(hash_df(42, markdown = FALSE))
  expect_error(hash_df(data.frame(Key = 10, en = "Hi"), markdown = FALSE))
  expect_error(hash_df(data.frame(key = 10, en = "Hi"), markdown = FALSE))
})