tests/testthat/test-YYYY-min-max-range.R

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

x <- CY(2010, 2005, 2019)

test_that("min() works", {
  expect_equal(min(x), CY(2005))
})

test_that("max() works", {
  expect_equal(max(x), CY(2019))
})

test_that("range() works", {
  expect_equal(range(x), CY(2005, 2019))
})