Disable utf8 test on old Windows

Author: lionel-

R/utils.R

@@ -368,3 +368,5 @@ pkg_url_bug <- function(pkg) {
 
   NULL
 }
+
+is_windows <- tolower(.Platform$OS.type) == "windows"

tests/testthat/test-env-binding.R

@@ -417,16 +417,20 @@ test_that("env_poke() zaps (#1012)", {
 })
 
 test_that("env_poke() doesn't warn when unrepresentable characters are serialised", {
-  with_non_utf8_locale({
-    e <- env(empty_env())
-    nm <- get_alien_lang_string()
+  if (is_windows && getRversion() < "4.2") {
+    return()
+  }
 
-    expect_no_warning(env_poke(e, nm, NA))
+    with_non_utf8_locale({
+      e <- env(empty_env())
+      nm <- get_alien_lang_string()
 
-    skip_if_no_utf8_marker()
-    nms <- env_names(e)
-    expect_equal(Encoding(nms), "UTF-8")
-  })
+      expect_no_warning(env_poke(e, nm, NA))
+
+      skip_if_no_utf8_marker()
+      nms <- env_names(e)
+      expect_equal(Encoding(nms), "UTF-8")
+    })
 })
 
 test_that("new_environment() supports non-list data", {