tests/testthat/test_lubridate.R

In steffilazerte/testing: Testing on appveyor

context("lubridate timezones")

t1 <- as.POSIXct("2016-09-01 09:00:00", tz = "UTC")

test_that("with_tz UTC", {
  expect_silent(lubridate::with_tz(t1, tzone = "UTC"))
  expect_equal(lubridate::with_tz(t1, tzone = "UTC"),
               as.POSIXct("2016-09-01 09:00:00", tz = "UTC"))
})

test_that("with_tz America/Vancouver", {
  expect_silent(lubridate::with_tz(t1, tzone = "America/Vancouver"))
  expect_equal(lubridate::with_tz(t1, tzone = "America/Vancouver"),
               as.POSIXct("2016-09-01 02:00:00", tz = "America/Vancouver"))
})

test_that("with_tz Etc/GMT+8", {
  expect_silent(lubridate::with_tz(t1, tzone = "Etc/GMT+8"))
  expect_equal(lubridate::with_tz(t1, tzone = "Etc/GMT+8"),
               as.POSIXct("2016-09-01 01:00:00", tz = "Etc/GMT+8"))
})


test_that("with_tz America/New_York", {
  expect_silent(lubridate::with_tz(t1, tzone = "America/New_York"))
  expect_equal(lubridate::with_tz(t1, tzone = "America/New_York"),
               as.POSIXct("2016-09-01 05:00:00", tz = "America/New_York"))
})

test_that("with_tz Europe/Amsterdam", {
  expect_silent(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"))
  expect_equal(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"),
               as.POSIXct("2016-09-01 11:00:00", tz = "Europe/Amsterdam"))
})

test_that("with_tz America/New_York", {
  expect_silent(lubridate::with_tz(t1, tzone = "EST"))
  expect_equal(lubridate::with_tz(t1, tzone = "EST"),
               as.POSIXct("2016-09-01 04:00:00", tz = "EST"))
})

test_that("with_tz Europe/Amsterdam", {
  expect_silent(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"))
  expect_equal(lubridate::with_tz(t1, tzone = "Europe/Amsterdam"),
               as.POSIXct("2016-09-01 11:00:00", tz = "Europe/Amsterdam"))
})

test_that("force_tz with_tz UTC", {
  expect_equal(lubridate::force_tz(t1, tzone = "UTC"),
               as.POSIXct("2016-09-01 09:00:00", tz = "UTC"))
})

test_that("force_tz with_tz America/Vancouver", {
  expect_equal(lubridate::force_tz(t1, tzone = "America/Vancouver"),
               as.POSIXct("2016-09-01 09:00:00", tz = "America/Vancouver"))
})

test_that("force_tz Etc/GMT+8", {
  expect_equal(lubridate::force_tz(t1, tzone = "Etc/GMT+8"),
               as.POSIXct("2016-09-01 09:00:00", tz = "Etc/GMT+8"))
})


test_that("force_tz America/New_York", {
  expect_equal(lubridate::force_tz(t1, tzone = "America/New_York"),
               as.POSIXct("2016-09-01 09:00:00", tz = "America/New_York"))
})

test_that("force_tz Europe/Amsterdam", {
  expect_equal(lubridate::force_tz(t1, tzone = "Europe/Amsterdam"),
               as.POSIXct("2016-09-01 09:00:00", tz = "Europe/Amsterdam"))
})

test_that("as.POSIXct UTC", {
  expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "UTC"))
})


test_that("as.POSIXct Etc/GMT+8", {
  expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "Etc/GMT+8"))
})

test_that("as.POSIXct America/New_York", {
  expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "America/New_York"))
})

test_that("as.POSIXct Europe/Amsterdam", {
  expect_silent(as.POSIXct("2016-09-01 09:00:00", tz = "Europe/Amsterdam"))
})