tests/testthat/test-study-year.R

context("study-year")

test_that("dtt_study_year.Date", {
  expect_identical(dtt_study_year(as.Date("2001-01-01")[-1]), character(0))
  expect_identical(dtt_study_year(as.Date("2001-01-01")[-1], full = FALSE), integer(0))
  expect_identical(dtt_study_year(as.Date("2005-04-03")), "2005-2005")
  expect_identical(dtt_study_year(as.Date("2005-04-03"), full = FALSE), 2005L)
  expect_identical(
    dtt_study_year(as.Date(c("2000-03-31", "2000-04-01", "2001-04-01")), start = 4L),
    c("1999-2000", "2000-2001", "2001-2002")
  )
  expect_identical(
    dtt_study_year(as.Date(c("2000-03-31", "2000-04-01", "2001-04-01")), start = 4L, full = FALSE),
    1999:2001
  )
  expect_identical(
    dtt_study_year(as.Date(c("2000-03-31", "2000-04-01", "2001-04-01")), start = dtt_date("1972-04-01")),
    c("1999-2000", "2000-2001", "2001-2002")
  )
  expect_identical(
    dtt_study_year(as.Date(c("2000-03-31", "2000-04-01", "2001-04-01")), start = dtt_date("1972-04-01"), full = FALSE),
    1999:2001
  )
})

test_that("dtt_study_year.POSIXct", {
  expect_identical(dtt_study_year(as.POSIXct("2005-04-03")[-1]), character(0))
  expect_identical(dtt_study_year(as.POSIXct("2005-04-03")[-1], full = FALSE), integer(0))
  expect_identical(dtt_study_year(as.POSIXct("2005-04-03")), "2005-2005")
  expect_identical(dtt_study_year(as.POSIXct("2005-04-03"), full = FALSE), 2005L)
  expect_identical(
    dtt_study_year(as.POSIXct(c("2000-03-31", "2000-04-01", "2001-04-01")), start = 4L),
    c("1999-2000", "2000-2001", "2001-2002")
  )
  expect_identical(
    dtt_study_year(as.POSIXct(c("2000-03-31", "2000-04-01", "2001-04-01")), start = 4L, full = FALSE),
    1999:2001
  )
  expect_identical(
    dtt_study_year(as.POSIXct(c("2000-03-31", "2000-04-01", "2001-04-01")), start = dtt_date("1972-04-01"), full = FALSE),
    1999:2001
  )
})

Try the dttr2 package in your browser

Any scripts or data that you put into this service are public.

dttr2 documentation built on July 10, 2020, 5:06 p.m.