From 586b71a9d7673f2eac979eef8beaf9e6f3fe654f Mon Sep 17 00:00:00 2001
From: Hiroaki Yutani <yutani.ini@gmail.com>
Date: Thu, 2 May 2019 12:22:25 +0900
Subject: [PATCH] Set locale explicitly before testing visual cases

---
 tests/testthat/test-scale_date.R | 3 +++
 tests/testthat/test-sec-axis.R   | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/tests/testthat/test-scale_date.R b/tests/testthat/test-scale_date.R
index ceccb90955..02192180b9 100644
--- a/tests/testthat/test-scale_date.R
+++ b/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)],
diff --git a/tests/testthat/test-sec-axis.R b/tests/testthat/test-sec-axis.R
index 612f2f6ab3..d4b4e45cad 100644
--- a/tests/testthat/test-sec-axis.R
+++ b/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",