avoid spurious Rdiff from testing examples in a non-English locale

git-svn-id: https://svn.r-project.org/R/trunk@87258 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: smeyer

src/library/tools/R/testing.R

@@ -396,8 +396,11 @@ testInstalledPackage <-
             cmd <- paste(shQuote(file.path(R.home("bin"), "R")),
                          "CMD BATCH --vanilla --no-timing", Ropts,
                          shQuote(Rfile), shQuote(failfile))
-            if (.Platform$OS.type == "windows") Sys.setenv(R_LIBS="")
-            else cmd <- paste("R_LIBS=", cmd)
+            if (.Platform$OS.type == "windows") {
+                Sys.setenv(R_LIBS="")
+                cmd <- paste(cmd, "LANGUAGE=C")
+            } else
+                cmd <- paste("R_LIBS= LANGUAGE=C", cmd)
             res <- system(cmd)
             if (res) {
                 message(gettextf("Error: running examples in %s failed", sQuote(Rfile)),