tests/testthat/test-vec-cast-date.R

In almanac: Tools for Working with Recurrence Rules

test_that("can cast Date to Date", {
  x <- as.Date("2019-01-01")
  expect_equal(vec_cast_date(x), x)
})

test_that("can cast character to Date", {
  x <- as.Date("2019-01-01")
  expect_equal(vec_cast_date("2019-01-01"), x)
})

test_that("can catch lossy character to Date cast", {
  expect_snapshot(error = TRUE, {
    vec_cast_date("2019-02-31")
  })
})

test_that("cannot cast integer or double to Date", {
  expect_snapshot(error = TRUE, {
    vec_cast_date(1)
  })
  expect_snapshot(error = TRUE, {
    vec_cast_date(1L)
  })
})

test_that("can cast POSIXct with no time to Date", {
  expect_identical(vec_cast_date(as.POSIXct("2019-01-01", "UTC")), as.Date("2019-01-01"))

  expect_snapshot(error = TRUE, {
    vec_cast_date(as.POSIXct("2019-01-01 01:01:01", "UTC"))
  })
})