tests/testthat/test_qQQIDfactory.R

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

# test_qQQIDfactory.R
#
# (c) 2019 Boris Steipe <https://orcid.org/0000-0002-1134-6758>
#          licensed under MIT (see file ./LICENSE).
#
# ==== setup ===================================================================
#
ANUnotReachable <- tryCatch(ifelse(nchar(qrandom::qUUID(1)) == 36, FALSE, TRUE),
                            error   = function(e) { TRUE },
                            warning = function(w) { TRUE })
#
# ==============================================================================
context("qQQIDfactory")

test_that("corrupt input to the factory function generates errors",  {
  expect_error(testQQ <- qQQIDfactory(NULL))
  expect_error(testQQ <- qQQIDfactory(FALSE))
  expect_null(qQQIDfactory(-1))   # cause an error thrown from qrandom::qUUID()
})

test_that("corrupt input to the closure generates errors",  {
  skip_if(ANUnotReachable)
  expect_false(is.null(testQQ <- qQQIDfactory(5) ))
  expect_error(testQQ("0", inspectOnly = TRUE))
  expect_error(testQQ(0, inspectOnly = TRUE))
  expect_error(testQQ(1e05 + 1, inspectOnly = TRUE))
})

test_that("valid input produces the expected output",  {
  skip_if(ANUnotReachable)
  testQQ <- qQQIDfactory(nBatch = 5)
  expect_equal(length(testQQ(2)), 2)                   # is able to retrieve 2
  expect_equal(length(testQQ(2)), 2)                   # two more
  x <- capture_output(testQQ(5, inspectOnly = TRUE))
  expect_equal(length(unlist(strsplit(x, " "))), 2)    # one QQID in output
  newQQs <- testQQ(2)                                  # replenish cachce
  expect_equal(length(newQQs), 2)                      # successfully retrieved
  expect_equal(newQQs[1], substr(x, 6, 33))            # old == new[1]
  x <- capture_output(testQQ(10, inspectOnly = TRUE))  # four more in cache
  expect_equal(length(unlist(strsplit(x, " "))), 5)
})

# [END]