tests/testthat/test-weekdays.R

In poissonconsulting/poistimesheets: Poisson Time Sheets

context("weekdays")

test_that("weekdays",{
  expect_identical(pts_weekdays(as.Date("2000-01-01"), as.Date("2000-01-01")), 0L)
  expect_identical(pts_weekdays(as.Date("2000-01-03"), as.Date("2000-01-03")), 1L)
  expect_identical(pts_weekdays(as.Date("2000-01-04"), as.Date("2000-01-03")), -2L)
  expect_identical(pts_weekdays(as.Date("2018-04-01"), as.Date("2019-03-31")), 260L)
  expect_identical(pts_weekdays(as.Date("2018-04-01")), 260L)
})