Skip UTF8 filepaths on old R

jeroen · Nov 5, 2018 · 7fcd60e · 7fcd60e
1 parent 883e8a9
commit 7fcd60e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/test-encoding.R b/tests/testthat/test-encoding.R
@@ -11,6 +11,7 @@ test_that("UTF-8 encoded text arguments", {
 })
 
 test_that("UTF-8 filenames, binary data", {
+  skip_if(getRversion() < "3.5")
   tmp <- paste(tempdir(), "\u0420\u0423\u0421\u0421\u041a\u0418\u0419.txt", sep = "/")
   tmp <- normalizePath(tmp, mustWork = FALSE)
   f <- file(tmp, 'wb')
@@ -29,6 +30,7 @@ test_that("UTF-8 filenames, binary data", {
 })
 
 test_that("UTF-8 filename as std_in", {
+  skip_if(getRversion() < "3.5")
   input <- c("foo", "bar", "baz")
   txt <- readLines(system.file('utf8.txt', package = 'sys', mustWork = TRUE), encoding = 'UTF-8')
   tmp <- normalizePath(paste(tempdir(), txt, sep = "/"), mustWork = FALSE)