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/mansched2 documentation built on May 19, 2023, 9:51 p.m.