tests/testthat/test_calendar_fun.R

library(mansched)

hol <- getHol(hol = holidays, year = 2018)

mdtProb <- getMDTProb(hol = hol)

test_that("getMDTProb() returns the correct total prob", {
  expect_equal(sum(mdtProb[,c(1:8)]),
               12)
})

rm(list = ls())
basilrabi/mansched documentation built on May 18, 2023, 1:29 p.m.