tests/testthat/test-ydm.R

In lubrilog: Get Insights on 'lubridate' Operations

library(lubrilog)
library(cli)

data <- lubrilog::games


f <- function(){
  lubrilog::ydm(data$release_date)
}

test_that("ydm works", {
  expect_message(
    out <- lubrilog::ydm(data$release_date)
  )
  expect_equal(length(out), nrow(data))

  expect_message(f(), "NA values created by parsing")
  expect_message(f(), "Original:")
  expect_message(f(), "Parsed:")
})