tests/testthat/test-usa-date.R

library(readr)
library(testthat)
library(campfin)

test_that("MDY dates can be parsed in readr::read_csv()", {
  raw <- "x\n11/09/2016"
  df <- read_csv(raw, col_types = cols(x = col_date_mdy()))
  expect_s3_class(df$x, "Date")
})

test_that("USA dates can be parsed in readr::read_csv()", {
  raw <- "x\n11/09/2016"
  expect_warning(read_csv(raw, col_types = cols(x = col_date_usa())))
})

Try the campfin package in your browser

Any scripts or data that you put into this service are public.

campfin documentation built on Oct. 20, 2023, 5:06 p.m.