tests/testthat/test-dttm_diff.R

In vbfelix/relper: Miscellaneous Functions for Data Preparation, Cleaning, and Visualization

date1 <- lubridate::dmy("01/05/1998")

date2 <- lubridate::dmy("21/11/2018")

test_that("Expect equal", {

  expect_equal(
    object = dttm_diff(date1,date2,unit = "days"),
    expected = 7509
  )

  expect_equal(
    object = dttm_diff(date1,date2,add = 1,unit = "days"),
    expected = 7510
  )

  expect_equal(
    object = dttm_diff(date1,date2,unit = "hours"),
    expected = 7509*24
  )

})


test_that("Wrong type", {

  expect_error(dttm_diff(date1 = "a",date2 = "b",unit = "days"))

  expect_error(dttm_diff(date1 = date1,date2 = "b",unit = "days"))

  expect_error(dttm_diff(date1 = "a",date2 = date2,unit = "days"))

  expect_error(dttm_diff(date1 = date1,date2 = date2,unit = 1))

  expect_error(dttm_diff(date1 = date1,date2 = date2,add = "a"))

})

test_that("Invalid option", {

  expect_error(dttm_diff(date1 = date1,date2 = date2,unit = "a"))

})