1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
test_that("POSIXt time zones are standardized as expected", {
expect_identical(posixt_tzone_standardize(NULL), "")
expect_identical(posixt_tzone_standardize(""), "")
expect_identical(posixt_tzone_standardize("America/New_York"), "America/New_York")
# POSIXlt can return something like this
expect_identical(posixt_tzone_standardize(c("", "EST", "EDT")), "")
# Unknown if this can happen, but we handle it anyways
expect_snapshot(posixt_tzone_standardize(character()))
expect_warning(
expect_identical(posixt_tzone_standardize(character()), "")
)
expect_snapshot(error = TRUE, posixt_tzone_standardize(1))
})
|
