resolves #347

OuhscBbmc · Jul 22, 2021 · 0cee396 · 0cee396
1 parent 9f6b4ae
commit 0cee396
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,8 +1,9 @@
 Upcoming Versions
 ==========================================================
 
-In the future:
-...
+### Minor Enhacements
+
+* `sanitize_token()` no longer fails with lowercase characters (#347)
 
 Version 1.0 (released 2021-07-21)
 ==========================================================

diff --git a/R/sanitize-token.R b/R/sanitize-token.R
@@ -22,6 +22,7 @@
 #' @export
 sanitize_token <- function(token) {
   pattern <- "^([0-9A-F]{32})(?:\\n)?$"
+  token <- toupper(token)
 
   if (is.na(token)) {
     stop(

diff --git a/tests/testthat/test-sanitize.R b/tests/testthat/test-sanitize.R
@@ -39,3 +39,11 @@ test_that("sanitize token -empty", {
     regexp    = "The token is an empty string, not a valid 32-character hexademical value\\."
   )
 })
+
+test_that("sanitize token - lowercase (#347)", {
+  secret_token <- "12345678901234567890123456abcdef"
+  sanitize_token(secret_token)
+
+  returned <- REDCapR::sanitize_token(secret_token)
+  expect_equal(returned, toupper(secret_token))
+})