test 1590.14: don't assume 1252 if not UTF-8

Author: aitap

inst/tests/tests.Rraw

@@ -8541,7 +8541,7 @@ if (x1==x2) {
   # NB: x1==x2 is a condition in base R, independent of data.table
   test(1590.12, forderv(    c(x2,x1,x1,x2)), integer())
   # don't test base ... test(1590.13, base::order(c(x2,x1,x1,x2)), 1:4)
-} else {
+} else if (identical(l10n_info()$codepage, 1252L)) {
   # Windows-1252, #2856
   test(1590.14, forderv(    c(x2,x1,x1,x2)), INT(1,4,2,3))
   # don't test base ... test(1590.15, base::order(c(x2,x1,x1,x2)), INT(1,4,2,3))