tests/testthat/test-olson.R

In lutz: Look Up Time Zones of Point Coordinates

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"))
})