tests/testthat/test_week_functions.R

In jameslairdsmith/gs: A grammar of recurring calendar events

context("test_week_functions")

test_that("in_week functions works", {
  first_week_of_year <- in_week(1)

  expect_true(test_date(dmy("01/01/2000"), first_week_of_year))
  expect_true(test_date(dmy("02/01/2000"), first_week_of_year))
  expect_true(test_date(dmy("01/01/1990"), first_week_of_year))
  expect_false(test_date(dmy("31/12/1990"), first_week_of_year))

  twenty_eight_week_of_year <- in_week(28)

  expect_true(test_date(dmy("12/07/1990"), twenty_eight_week_of_year))
  expect_false(test_date(dmy("20/07/1990"), twenty_eight_week_of_year))
})

test_that("in_week() functions error on invalid input", {
  expect_error(in_week(0))
  expect_error(in_week(54))
  expect_error(in_week(1.5))
  expect_error(in_isoweek(0))
  expect_error(in_isoweek(54))
  expect_error(in_isoweek(1.5))
  expect_error(in_epiweek(0))
  expect_error(in_epiweek(54))
  expect_error(in_epiweek(1.5))
})

test_that("in_week functions works with multiple inputs", {

  first_or_second_week_of_year <- in_week(1, 2)

  expect_true(test_date(dmy("01/01/2000"), first_or_second_week_of_year))
  expect_true(test_date(dmy("02/01/2000"), first_or_second_week_of_year))
  expect_true(test_date(dmy("08/01/2000"), first_or_second_week_of_year))
  expect_false(test_date(dmy("15/01/2000"), first_or_second_week_of_year))
  expect_true(test_date(dmy("01/01/1990"), first_or_second_week_of_year))
  expect_false(test_date(dmy("31/12/1990"), first_or_second_week_of_year))

})

test_that("in_isoweek functions works", {
  first_isoweek_of_year <- in_isoweek(1)
  last_isoweek_of_year <- in_isoweek(52)

  expect_true(test_date(dmy("01/01/2000"), last_isoweek_of_year))
  expect_true(test_date(dmy("03/01/2000"), first_isoweek_of_year))
  expect_false(test_date(dmy("02/01/2000"), first_isoweek_of_year))
  expect_true(test_date(dmy("01/01/1990"), first_isoweek_of_year))
  expect_true(test_date(dmy("31/12/1990"), first_isoweek_of_year))
})

test_that("in_epiweek functions works", {
  first_epiweek_of_year <- in_epiweek(1)
  last_epiweek_of_year <- in_epiweek(52)

  expect_true(test_date(dmy("30/12/2000"), last_epiweek_of_year))
  expect_true(test_date(dmy("03/01/2000"), first_epiweek_of_year))
  expect_false(test_date(dmy("09/01/2000"), first_epiweek_of_year))
  expect_true(test_date(dmy("01/01/1990"), first_epiweek_of_year))
  expect_true(test_date(dmy("31/12/1990"), first_epiweek_of_year))
})