Fix failing overflow tests on windows

tidyverse · Oct 7, 2017 · 4754c38 · infotroph · Oct 7, 2017 · vspinu
1 parent f297bb9
commit 4754c38
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/tests/testthat/test-POSIXt.R b/tests/testthat/test-POSIXt.R
@@ -51,8 +51,10 @@ test_that("changes timezone of POSIXct", {
 })
 
 test_that("addition of large seconds doesn't overflow", {
-  from_period <- origin + seconds(2 ^ 31 + c(-2:2))
-  from_char <- ymd_hms(c("2038-01-19 03:14:06", "2038-01-19 03:14:07", "2038-01-19 03:14:08",
-                         "2038-01-19 03:14:09", "2038-01-19 03:14:10"))
+
+  from_period <- ymd("2000-01-01", tz = "UTC") + seconds(2 ^ 31 - c(1:5))
+  from_char <- ymd_hms(c("2068-01-19 03:14:07 UTC", "2068-01-19 03:14:06 UTC", "2068-01-19 03:14:05 UTC",
+                         "2068-01-19 03:14:04 UTC", "2068-01-19 03:14:03 UTC"))
   expect_equal(from_period, from_char)
+
 })
diff --git a/tests/testthat/test-ops-addition.R b/tests/testthat/test-ops-addition.R
@@ -247,7 +247,6 @@ test_that("%m+% correctly adds years without rollover", {
   leap <- ymd("2012-02-29")
   next1 <- ymd("2013-02-28")
   next2 <- ymd("2013-03-29")
-
   expect_equal(leap %m+% years(1), next1)
   expect_equal(leap %m+% period(years = 1, months = 1), next2)
 })

diff --git a/tests/testthat/test-settors.R b/tests/testthat/test-settors.R
@@ -83,8 +83,7 @@ test_that("seconds settor does not change time zone", {
 
 
 test_that("seconds settor returns NA for spring dst gap", {
-  poslt <- as.POSIXlt("2010-03-14 01:59:59", tz = "UTC", format
-     = "%Y-%m-%d %H:%M:%S")
+  poslt <- as.POSIXlt("2010-03-14 01:59:59", tz = "UTC", format = "%Y-%m-%d %H:%M:%S")
   poslt <- force_tz(poslt, tz = "America/New_York")
   posxct <- as.POSIXct(poslt)
 
@@ -1038,8 +1037,8 @@ test_that("time zone settor retains object class", {
 
 
 test_that("settors handle vectors", {
-  poslt <- as.POSIXlt(c("2010-02-14 01:59:59", "2010-02-15 01:59:59", "2010-02-16 
-    01:59:59"), tz = "UTC", format = "%Y-%m-%d %H:%M:%S")
+  poslt <- as.POSIXlt(c("2010-02-14 01:59:59", "2010-02-15 01:59:59", "2010-02-16 01:59:59"),
+                      tz = "UTC", format = "%Y-%m-%d %H:%M:%S")
   posct <- as.POSIXct(poslt)
   date <- as.Date(poslt)