context("time-zone utilities")
test_that("tz_list works", {
expect_is(tz_list(), "data.frame")
})
test_that("tz_plot works", {
expect_is(tz_plot("America/Vancouver"), "ggplot")
expect_error(tz_plot("foo"), "foo is not a valid time zone. See ?OlsonNames",
fixed = TRUE)
})
test_that("tz_offset works", {
expect_is(tz_offset(Sys.Date(), "America/Vancouver"), "data.frame")
expect_is(tz_offset(Sys.time(), "America/Vancouver"), "data.frame")
expect_is(tz_offset("2019-01-01", "America/Vancouver"), "data.frame")
expect_is(tz_offset("2019-01-01 12:31:45", "America/Vancouver"), "data.frame")
expect_is(tz_offset(as.POSIXlt(Sys.time(), tz = "America/Vancouver")),
"data.frame")
# t <- Sys.time()
# attr(t, "tzone") <- NULL
# expect_warning(tz_offset(t), "You supplied an object of class")
expect_warning(tz_offset(as.POSIXlt(Sys.time(), tz = "America/Vancouver"),
tz = "America/Moncton"),
"tz supplied is different",
fixed = TRUE)
})
test_that("tz_offset fails correctly", {
expect_error(tz_offset("2019-01-01"),
"If dt is a character or a Date, you must supply a time zone",
fixed = TRUE)
expect_error(tz_offset(1),
"dt must be of type POSIXct/lt, Date, or a character",
fixed = TRUE)
})
test_that("safe_get_tz_info works", {
expect_null(safe_get_tz_info("foo", "2019"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.