tests/testthat/test_obfuscateId.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
# This file is part of nprcgenekeepr
context("obfuscateId")
library(testthat)
library(stringi)

set_seed(10)
test_that("obfuscateId creates new ID with expected size", {
  id <- c("abc123", "george", "autumn")
  obfuscatedId <- obfuscateId(id, 6)
  expect_equal(length(obfuscatedId), 3)
  expect_true(all(stri_length(obfuscatedId) == 6))
  expect_true(length(id) == length(unique(obfuscatedId)))
})
# this test is weak
test_that("obfuscateId does not create duplicates", { # this test is weak
  id <- stri_c(1:10000)
  obfuscatedId <- obfuscateId(id, 5)
  expect_equal(length(obfuscatedId), 10000)
  expect_true(all(stri_length(obfuscatedId) == 5))
  expect_true(length(id) == length(unique(obfuscatedId)))
})

test_that("obfuscateId fails when duplicates cannot be avoided", {
  id <- stri_c(1:10000)
  expect_error(obfuscateId(id, size = 2))
})
test_that("obfuscateId replaces unknown ID with unknown IDs (start with 'U'", {
  id <- c("U0001", "U123", "u001", "abc")
  alias <- obfuscateId(id, size = 4)
  expect_true(all(stri_detect_regex(alias[1:3], "^U")))
  expect_false(stri_detect_regex(alias[4], "^U"))
})