tests/testthat/test_sxtMap.R

In qqid: Generation and Support of QQIDs - A Human-Compatible Representation of 128-bit Numbers

# test_sxtMap.R
#
# (c) 2019 Boris Steipe <https://orcid.org/0000-0002-1134-6758>
#          licensed under MIT (see file ./LICENSE).
#
context("sxtMap")

test_that("corrupt input generates errors",  {
  expect_error(sxtMap(list(1:4)))
  expect_error(sxtMap(NULL))            # not a vector
})

test_that("the r64 vector is sane and intact",  {
  expect_true(all( ! is.na(sxtMap(1:64))))
  expect_true(all(grep("[A-za-z0-9_-]", sxtMap(1:64))))
  expect_equal(length(unique(sxtMap(1:64))), 64)
  expect_true(all(nchar(sxtMap(1:64)) == 1))
  expect_true(all(nchar(names(sxtMap(1:64))) == 6))
  expect_true(all(grepl("[01]{6}", names(sxtMap(1:64)))))
  expect_equal(digest::digest(sxtMap(1:64), algo = "md5"),
               "73a45886e81c77a15c1ea87f26a7b8fd")
  expect_equal(digest::digest(names(sxtMap(1:64)), algo = "md5"),
               "99933ad788d4c90a98dd4c05410f518e")
})

test_that("a valid input produces the expected output",  {
  expect_equal(sxtMap(1:3),
               c("000000" = "A", "000001" = "B", "000010" = "C"))
  expect_equal(sxtMap(c("A", "B", "C")), c("000000", "000001", "000010"))
  expect_equal(sxtMap(c("000000", "000001", "000010")),
               c("000000" = "A", "000001" = "B", "000010" = "C"))
})

# [END]