changed encoding test

sekhar2017 · Mar 15, 2016 · 8a49bb7 · 8a49bb7
1 parent 375b432
commit 8a49bb7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/inst/test/test-encoding.txt b/inst/test/test-encoding.txt
@@ -0,0 +1 @@
+中文測試
diff --git a/tests/testthat/test-encoding.R b/tests/testthat/test-encoding.R
@@ -9,5 +9,7 @@ test_that("Trying to parse the test-encoding.yaml", {
   test_path <- system.file(file.path("test", "test-encoding.yaml"), package = "swirl")
   suppressWarnings(result <- test_parse(test_path))
   console <- capture.output(result)
-  expect_equal(strsplit(console[3], "\\s+")[[1]][3], "中文測試")
+  wush_path <- system.file(file.path("test", "test-encoding.txt"), package = "swirl")
+  wush <- readLines(con = wush_path, warn = FALSE, encoding = "UTF-8")
+  expect_equal(strsplit(console[3], "\\s+")[[1]][3], wush)
 })