tests/testthat/test_is_this_a_dst_night.R

In PeteJWatson/ggircal: Raw Accelerometer Data Analysis

library(GGIR)
context("is_this_a_dst_night")
options(encoding = "UTF-8")
test_that("is_this_a_dst_night", {
  dst_uk = is_this_a_dst_night(calendardate = "29/03/2014",tz="Europe/London")
  expect_that(dst_uk$dst_night_or_not,equals(1))
  expect_that(dst_uk$dsthour,equals(1))
  dst_nl = is_this_a_dst_night(calendardate = "25/10/2014",tz="Europe/Amsterdam")
  expect_that(dst_nl$dst_night_or_not,equals(-1))
  expect_that(dst_nl$dsthour,equals(2))
})