tests/testthat/test-YYYY-typecast.R

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

x <- CY(2000, 2010:2011)

test_that("as.character() works", {
  expect_identical(
    as.character(x),
    c("CY2000", "CY2010", "CY2011"))
})

test_that("as.integer() gives warning", {
  expect_warning(as.integer(x))
})

test_that("as.double() and as.numeric() give warning", {
  expect_warning(as.double(x))
  expect_warning(as.numeric(x))
})