tests/testthat/test-YYYY-bind_rows.R

In BAAQMD/yeartools: Provides CY, RY, PY, and BY classes and methods

require(tibble)

test_that("bind_rows() works when both are CY", {
  df1 <- tibble(year = CY(2000:2009))
  df2 <- tibble(year = CY(2010:2020))
  expect_identical(timeline(bind_rows(df1, df2)$year), "CY")
})

test_that("bind_rows() works when both are RY", {
  df1 <- tibble(year = RY(2000:2009))
  df2 <- tibble(year = RY(2010:2020))
  expect_identical(timeline(bind_rows(df1, df2)$year), "RY")
})

test_that("bind_rows() works when both are PY", {
  df1 <- tibble(year = PY(2000:2009))
  df2 <- tibble(year = PY(2010:2020))
  expect_identical(timeline(bind_rows(df1, df2)$year), "PY")
})

# test_that("bind_rows() falls back to YYYY when timelines differ", {
#   df1 <- tibble(year = PY(2000:2009))
#   df2 <- tibble(year = RY(2010:2020))
#   expect_is(timeline(bind_rows(df1, df2)$year), "YYYY")
# })