Set locale explicitly before testing visual cases (#3287)

Author: yutannihilation

tests/testthat/test-scale_date.R

@@ -4,6 +4,9 @@ context("scale_date")
 # Visual tests ------------------------------------------------------------
 
 test_that("date scale draws correctly", {
+  # datetime labels are locale dependent
+  withr::local_locale(c(LC_TIME = "C"))
+
   set.seed(321)
   df <- data_frame(
     dx = seq(as.Date("2012-02-29"), length.out = 100, by = "1 day")[sample(100, 50)],

tests/testthat/test-sec-axis.R

@@ -226,6 +226,9 @@ test_that("sec_axis() respects custom transformations", {
 })
 
 test_that("sec_axis works with date/time/datetime scales", {
+  # datetime labels are locale dependent
+  withr::local_locale(c(LC_TIME = "C"))
+
   df <- data_frame(
     dx = seq(as.POSIXct("2012-02-29 12:00:00",
       tz = "UTC",