Merge 8b76c8c into 2002162

Author: IndrajeetPatil

tests/testthat/test-utf8.R

@@ -0,0 +1,13 @@
+context("UTF-6 with 4.2")
+
+# for more, see: https://github.com/r-lib/styler/issues/847
+# this behavior is likely to change with R 4.2
+test_that("styling unicode characters on Windows", {
+  skip_if_not(.Platform$OS.type[[1]] == "windows")
+  skip_if(getRversion() < '4.2')
+  skip_on_cran()
+  expect_identical(
+    styler::style_text('suit <- "♠"'),
+    structure("suit <- \"♠\"", class = "vertical")
+  )
+})