tests/testthat/test-getSeason.R

In hslu-ige-laes/redutils: Utility Functions for the Analysis and Visualization of Comfort and Energy Data in R

test_that("getSeason", {
  expect_match(getSeason(as.Date("2019-01-01")),"Winter")
  expect_match(getSeason(as.Date("2020-02-29")),"Winter")
  expect_match(getSeason(as.Date("2018-03-19")),"Winter")
  expect_match(getSeason(as.Date("2019-03-21")),"Spring")
  expect_match(getSeason(as.Date("2019-06-19")),"Spring")
  expect_match(getSeason(as.Date("2019-06-21")),"Summer")
  expect_match(getSeason(as.Date("2019-09-21")),"Summer")
  expect_match(getSeason(as.Date("2019-09-23")),"Fall")
  expect_match(getSeason(as.Date("2019-12-20")),"Fall")
  expect_match(getSeason(as.Date("2019-12-22")),"Winter")
  expect_match(getSeason(as.Date("2019-12-31")),"Winter")
  expect_match(getSeason(as.Date("2019-12-31"), seasonlab = c("Winter","Frühling","Sommer","Herbst")),"Winter")
  expect_match(getSeason(as.Date("2019-03-30"), seasonlab = c("Winter","Frühling","Sommer","Herbst")),"Frühling")
  expect_match(getSeason(as.Date("2019-06-30"), seasonlab = c("Winter","Frühling","Sommer","Herbst")),"Sommer")
  expect_match(getSeason(as.Date("2019-09-30"), seasonlab = c("Winter","Frühling","Sommer","Herbst")),"Herbst")
})