0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
anytime
/
tinytest
/
hide
/
[
Home
]
File: test_gh_issue_5.R
Sys.setenv("TZ"="Australia/Sydney") library(anytime) anytime:::setTZ("Australia/Sydney") isWindows <- Sys.info()[["sysname"]] == "Windows" isRelease <- length(unclass(utils::packageVersion("anytime"))[[1]]) == 3 refD <- as.Date("2015-01-01") refT <- as.POSIXct(as.POSIXlt("2015-01-01")) expect_equivalent(refD, anydate(20150101)) expect_equivalent(refD, anydate("2015/01/01")) if (!isWindows && !isRelease) expect_equivalent(refT, anytime(20150101, oldHeuristic=TRUE)) if (!isWindows && !isRelease) expect_equivalent(refT, anytime("2015/01/01")) expect_equivalent(refD, anydate("2015/01/01", tz="CET")) expect_equivalent(refD, anydate("2015/01/01", tz="Australia/Sydney"))