tests/testthat/test-extract_date.R

In epicentre-msf/llutils: Linelist Utilities

test_that("extract_date works as expected", {

  x1 <- "myfile-2020-04-30-1230.csv"
  expect_equal(extract_date(x1), as.Date("2020-04-30"))

  x2 <- file.path("test", "2020-01-01", "myfile-2020-04-30-1230.csv")
  expect_equal(extract_date(x2), as.Date("2020-04-30"))

  x3 <- "myfile_created_01012020_modified_20200430.csv"
  expect_equal(extract_date(x3, if_conflict = "use_dmy"), as.Date("2020-01-01"))
  expect_equal(extract_date(x3, if_conflict = "use_ymd"), as.Date("2020-04-30"))
  expect_equal(extract_date(x3, if_conflict = "use_latest"), as.Date("2020-04-30"))

  x4 <- "COVID19_28072020.xlsb"
  expect_equal(extract_date(x4), as.Date("2020-07-28"))
})