tests/testthat/test-YYYY-compare.R

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

test_that("basic equality/inequality works", {
  expect_true(CY(2011) == CY(2011))
  expect_true(CY(2011) != CY(2012))
})

test_that("four-digit strings are comparable", {
  expect_false(CY(2011) == "CY2012")
  expect_true(CY(2011) == "CY2011")
  expect_true("CY2011" == CY(2011))
  expect_equal(
    CY(2011:2015) == paste0("CY", 2011:2015),
    c(TRUE, TRUE, TRUE, TRUE, TRUE))
})

test_that("four-digit numbers are not comparable", {
  expect_error(CY(2011) == 2011)
})

test_that("different timelines are not comparable", {
  expect_error(RY(2011) == PY(2011))
})

test_that("basic ordering works", {

  expect_true(CY(2011) < CY(2012))
  expect_true(CY(2011) < "CY2012")
  expect_true("CY2011" < CY(2012))

  expect_false(CY(2011) < CY(2011))
  expect_false(CY(2011) < "CY2011")
  expect_false("CY2011" < CY(2011))

  expect_true(CY(2011) <= CY(2011))
  expect_true(CY(2011) <= "CY2011")
  expect_true("CY2011" <= CY(2011))

  expect_true(CY(2011) >= CY(2011))
  expect_true(CY(2011) >= "CY2011")
  expect_true("CY2011" >= CY(2011))

  expect_true(CY(2012) >= CY(2011))
  expect_true(CY(2012) >= "CY2011")
  expect_true("CY2012" >= CY(2011))

})

test_that("%in% works", {

  expect_true(BY(2011) %in% paste0("BY", c(2011, 2015)))

})