fix test for openssl bug

mllg · Mar 11, 2018 · 0be3779 · 0be3779
1 parent d416691
commit 0be3779
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -1,9 +1,9 @@
 library(testthat)
 library(checkmate)
 
-rand = function(n, min = 1L, max = 32L, only.ascii = FALSE) {
+rand = function(n, min = 5L, max = 50L, only.ascii = FALSE) {
   chars = c(letters, LETTERS, c("=", "+", "-", "_", "/", "&", "=", "?", ":", ".", "%"))
   if (!isTRUE(only.ascii))
-    chars = c(chars, "ö", "`", "\n")
+    chars = c(chars, "ö", "`", "\n", "♏")
   replicate(n, paste0(sample(chars, sample(min:max, 1L), replace = TRUE), collapse = ""))
 }
diff --git a/tests/testthat/test_base64.R b/tests/testthat/test_base64.R
@@ -67,7 +67,9 @@ test_that("comparison with base64enc", {
 
 test_that("comparison with openssl", {
   for (i in 1:10) {
-    plain = rand(1000, only.ascii = FALSE)
+    # openssl seems to have problems with the encoding on windows :/
+    # openssl <-> openssl is not working!
+    plain = rand(1000, only.ascii = testOS("windows"))
     enc_openssl = base64enc_openssl(plain)
     enc_url = base64_urlencode(plain)