tests/testthat/test_getLeaveHours.R

In basilrabi/mansched: Manpower Scheduler and Personnel Cost Calculator for Taganito Mine

library(mansched)

test_that("getLeaveHours() works", {
  expect_equal(getLeaveHours(cBegin = "2017-01-01",
                             year   = 2017,
                             status = "reg"),
               240L)
  expect_equal(getLeaveHours(cBegin = "2017-02-01",
                             year   = 2017,
                             status = "reg"),
               220L)
  expect_equal(getLeaveHours(cBegin = "2017-02-01",
                             year   = 2017,
                             status = "pro"),
               0L)
  expect_equal(getLeaveHours(cBegin = "2017-01-01",
                             cEnd   = "2017-12-31",
                             year   = 2017,
                             status = "sea"),
               40L)
  expect_equal(getLeaveHours(cBegin = "2017-02-01",
                             cEnd   = "2017-12-31",
                             year   = 2017,
                             status = "age"),
               37L)
  expect_equal(getLeaveHours(cBegin = "1987-02-01",
                             year   = 2017,
                             status = "reg"),
               352L)
  expect_error(getLeaveHours(cBegin = "2017-02-01",
                             year   = 2017,
                             status = "age"))
  expect_error(getLeaveHours(cBegin = "2017-02-01",
                             year   = 2017,
                             status = "sea"))
})

rm(list = ls())