tests/testthat/test-yearquarter.R

In earowang/tsibble: Tidy Temporal Data Frames and Tools

x <- c("2019 Q3", "2018 Q1")
dates <- as.Date(c("2019-07-01", "2018-01-01"))
dttm <- as.POSIXct(c("2019-07-01", "2018-01-01"), tz = "UTC")

test_that("input types for yearquarter()", {
  expected <- yearquarter(x)
  expect_identical(yearquarter(dttm), expected)
  expect_identical(yearquarter(dates), expected)
  expect_identical(yearquarter(expected), expected)
  expect_identical(yearquarter(x), expected)
  expect_identical(yearquarter(), expected[0])
  expect_identical(yearquarter(c("2019-07-01", "2018-01-01")), expected)
  expect_identical(yearquarter(c(198, 192)), expected)
})

test_that("yearquarter() for characters #107", {
  expect_error(yearquarter("2013 Qt 3"), "cannot be expressed as Date type")
  expect_error(yearquarter("Qtrr 5 2015"), "cannot be expressed as Date type")
  expect_error(yearquarter("Quar 5 2015"), "cannot be expressed as Date type")
  expect_error(yearquarter("Q5 2015"), "greater than 4.")
  expect_error(yearquarter("Q2015"), "unambiguous")
  expect_error(yearquarter(c("Q2015", "Q2 2015")), "unambiguous")
  expect_identical(
    yearquarter(c("2013 Q3", "2013 Qtr 3", "Quarter 3 2013")),
    rep(yearquarter("2013 Q3"), 3)
  )
})

test_that("yearquarter.character() underlying dates #129", {
  expect_equal(as.Date(yearquarter("2017 Q1")), as.Date("2017-01-01"))
})

test_that("vec_arith() for yearquarter()", {
  expect_identical(yearquarter(x) + 1:2, yearquarter(c("2019 Q4", "2018 Q3")))
  expect_identical(yearquarter(x) - 1, yearquarter(c("2019 Q2", "2017 Q4")))
  expect_identical(+ yearquarter(x), yearquarter(x))
  expect_identical(- yearquarter(x), yearquarter(x))
  expect_identical(1 + yearquarter(x), yearquarter(x) + 1)
  expect_equal(yearquarter(x) - yearquarter(x), rep(0, 2))
  expect_error(yearquarter(x) + yearquarter(x), class = "vctrs_error_incompatible_op")
})

test_that("vec_compare() for yearquarter()", {
  expect_identical(yearquarter(x) == yearquarter("2019 Q3"), c(TRUE, FALSE))
  expect_identical(yearquarter(x) <= yearquarter("2019 Q3"), c(TRUE, TRUE))
  expect_identical(yearquarter(x) > yearquarter("2019 Q3"), c(FALSE, FALSE))
  expect_identical(sort(yearquarter(x)), yearquarter(x[2:1]))
})

test_that("vec_cast() for yearquarter()", {
  expect_identical(as.Date(yearquarter(x)), dates)
  expect_identical(as.character(yearquarter(x)), x)
  expect_identical(vec_cast(yearquarter(x), to = double()), as.double(yearquarter(x)))
  expect_identical(vec_cast(yearquarter(x), to = new_date()), dates)
  expect_identical(vec_data(as.POSIXct(yearquarter(x))), vec_data(dttm))
  expect_identical(as.POSIXlt(yearquarter(x)), as.POSIXlt(dttm))
  expect_identical(
    vec_data(vec_cast(yearquarter(x), to = new_datetime())),
    vec_data(dttm))
})

test_that("vec_c() for yearquarter()", {
  expect_error(vec_c(yearquarter(x), yearquarter(x, 2)), "combine")
  expect_identical(vec_c(dates, yearquarter(x)), rep(dates, times = 2))
  expect_identical(vec_c(yearquarter(x), dates), rep(dates, times = 2))
  expect_identical(
    vec_data(vec_c(dttm, yearquarter(x))),
    vec_data(rep(dttm, times = 2)))
  expect_identical(
    vec_data(vec_c(yearquarter(x), dttm)),
    vec_data(rep(dttm, times = 2)))
  expect_identical(vec_c(dates, yearquarter(x)), c(dates, yearquarter(x)))
})

test_that("format.yearquarter() with NA presence #170", {
  expect_equal(format(c(yearquarter("1970 Q1"), NA)), c("1970 Q1", NA))
})

test_that("fiscal_start for yearquarter() #174", {
  expect_error(yearquarter(1:3, 1:3), "length 1.")
  expect_error(yearquarter(1:3, 13), "between")
  expect_identical(yearquarter(yearquarter(1), 6), yearquarter(1, 6))
  expect_identical(yearquarter(yearquarter(1, 6), 1), yearquarter(1))

  expected <- yearquarter(dates, fiscal_start = 6)
  expect_identical(
    yearquarter(c("2020 Q1", "2018 Q3"), fiscal_start = 6),
    expected)
  expect_identical(as_date(expected), dates - period(month = 1))
  expect_identical(
    expected + 1,
    yearquarter(c("2020 Q2", "2018 Q4"), 6))
})

test_that("fiscal_year()", {
  expect_error(fiscal_year(2020), "not TRUE")
  expect_equal(fiscal_year(yearquarter("2020 Q1", fiscal_start = 6)), 2020)
  expect_equal(lubridate::year(yearquarter("2020 Q1", fiscal_start = 6)), 2019)
})

test_that("yearquarter() with missing `by` #228", {
  expect_length(seq(yearquarter("2020-01-01"), yearquarter("2020-12-01"),
    length.out = 3), 3)
})

test_that("yearquarter() set operations", {
  expect_identical(
    intersect(yearquarter("2020 Q1") + 0:6, yearquarter("2020 Q1") + 3:9),
    yearquarter("2020 Q1") + intersect(0:6, 3:9))
  expect_error(intersect(
    yearquarter("2020 Q1"),
    yearquarter("2020 Q1", fiscal_start = 2)
  ))

  expect_identical(
    union(yearquarter("2020 Q1") + 0:6, yearquarter("2020 Q1") + 3:9),
    yearquarter("2020 Q1") + 0:9)
  expect_error(union(
    yearquarter("2020 Q1"),
    yearquarter("2020 Q1", fiscal_start = 2)
  ))

  expect_identical(
    setdiff(yearquarter("2020 Q1") + 0:6, yearquarter("2020 Q1") + 3:9),
    yearquarter("2020 Q1") + setdiff(0:6, 3:9))
})