tests/testthat/test-as_date.R

In standardlastprofile: Data Package for BDEW Standard Load Profiles in Electricity

today <- Sys.Date()

test_that("as_date works", {
  expect_equal(today, today |> as.character() |> as_date())
})

test_that("as_date returns NA in case of error", {
  expect_equal("today, today |> as.character()" |> as_date(), NA_character_)
})

test_that("as_date returns NA in case of error", {
  expect_equal("2022-13-01" |> as_date(), NA_character_)
})