tests/testthat/test_format_data.R

test_that("format data", {
  result <- format_data(Sys.Date())
  expect_equal(format(Sys.Date(), "%m/%Y"), result)
})
ipea/ipeaData documentation built on July 5, 2019, 10:01 p.m.