0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
anytime
/
tinytest
/
hide
/
[
Home
]
File: test_validate.R
library(anytime) isWindows <- Sys.info()[["sysname"]] == "Windows" isRelease <- length(unclass(utils::packageVersion("anytime"))[[1]]) == 3 ## Explicit test for (at least) two of the machines at rhub which fail this ## (also see file test_all_formats.R) -- this should never be false as ## parsing plain ISO 8601 cannot go wrong. But does on those two (at least) inp <- "2001-02-03 04:05:06" isStupid <- as.POSIXct(inp) != anytime(inp) if (!isWindows && !isRelease && !isStupid) { oldtz <- Sys.getenv("TZ") input <- "2016-09-01 10:11:12" tz <- "America/Chicago" anytime:::setTZ(tz) Sys.setenv("TZ"=tz) expect_equivalent(as.POSIXct(input, tz=tz), anytime(input, tz=tz)) expect_equivalent(anytime(input, tz=tz), as.POSIXct(input, tz=tz)) tz <- "Europe/Berlin" anytime:::setTZ(tz) Sys.setenv("TZ"=tz) expect_equivalent(as.POSIXct(input, tz=tz), anytime(input, tz=tz)) expect_equivalent(anytime(input, tz=tz), as.POSIXct(input, tz=tz)) tz <- "Japan" anytime:::setTZ(tz) Sys.setenv("TZ"=tz) expect_equivalent(as.POSIXct(input, tz=tz), anytime(input, tz=tz)) expect_equivalent(anytime(input, tz=tz), as.POSIXct(input, tz=tz)) ## when using UTC parse, and output format, we can we assurred ## a fixed result nomatter where this runs Sys.setenv("TZ"="UTC") anytime:::setTZ("UTC") output <- expect_equivalent(utctime(input), as.POSIXct(input)) Sys.setenv("TZ"=oldtz) }