describe("with_timezone", {
it("changes the time zone", {
expect_equal(with_timezone("CET", Sys.timezone()), "CET")
expect_equal(with_timezone("GMT", Sys.timezone()), "GMT")
expect_true(
with_timezone("CET", format(Sys.time(), "%Z")) %in% c("CET", "CEST"))
expect_true(
with_timezone("US/Pacific", format(Sys.time(), "%Z")) %in% c("PDT", "PST"))
})
it("restores the time zone", {
cur <- Sys.timezone()
expect_equal(with_timezone("CET", Sys.timezone()), "CET")
expect_identical(cur, Sys.timezone())
cur <- Sys.timezone()
expect_equal(with_timezone("US/Pacific", Sys.timezone()), "US/Pacific")
expect_identical(cur, Sys.timezone())
})
})
describe("local_timezone", {
it("changes the time zone", {
fun <- function(tzone) {
local_timezone(tzone)
Sys.timezone()
}
expect_identical(
with_timezone("CET", Sys.timezone()),
fun("CET"))
expect_identical(
with_timezone("US/Pacific", Sys.timezone()),
fun("US/Pacific"))
})
it("restores the time zone", {
cur <- Sys.timezone()
fun <- function(tzone) {
local_timezone(tzone)
"foobar"
}
fun("CET")
expect_identical(cur, Sys.timezone())
fun("US/Pacific")
expect_identical(cur, Sys.timezone())
})
})
Generated by dwww version 1.15 on Thu May 23 08:05:33 CEST 2024.