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())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.