Merge pull request #330 from yutannihilation/test-windows-encoding-issue

Use the dev version of enc package to fix handling non-ASCII characters on Windows

Author: lorenzwalthert

DESCRIPTION

@@ -66,3 +66,5 @@ Collate:
     'vertical.R'
     'visit.R'
     'zzz.R'
+Remotes:
+    krlmlr/enc

tests/testthat/test-encoding.R

@@ -0,0 +1,21 @@
+context("non-ASCII characters are handled properly")
+
+test_that("non-ASCII characters are handled properly", {
+  skip_if(.Platform$OS.type != "windows")
+
+  withr::with_locale(
+    c(LC_CTYPE = "English_United States.1252"),
+    {
+      tmp <- tempfile(fileext = ".R")
+      con <- file(tmp, encoding = "UTF-8")
+      on.exit(close(con), add = TRUE)
+
+      # c.f. dplyr's tests/testthat/helper-encoding.R
+      writeLines("Gl\u00fcck+1", con)
+
+      style_file(tmp)
+      result <- readLines(con)
+      expect_equal(result, "Gl\u00fcck + 1")
+    }
+  )
+})