tests/testthat/test_interop_parttime_case_when.R

In parttime: Partial Datetime Handling

context("parttime dplyr::case_when integration tests")

# When this package was first kicking off, vctrs wasn't yet released and dplyr
# compatibility was still incomplete. This test is a hold-over from that time
# and can probably be deleted.

library(dplyr)

test_that("parttime works when used in the context of a dplyr::case_when", {
  x <- as.parttime(c("2001", "1984", "3030-01-02", NA))

  expect_equal({
    dplyr::case_when(
      c(TRUE, FALSE, TRUE, FALSE) ~ x,
      FALSE ~ x,
      TRUE ~ x)
  }, {
    x
  })
})