tests/testthat/test_getHMO.R

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

library(mansched)

ID <- "S-240"
name <- "Basil Eric Rabi"
designation <- "Materials Engineering Supervisor"
costCenter <- "14000"
status <- "reg"
cBegin <- "2012-10-15"
inHouse <- TRUE
restday <- "Tuesday"
hol <- getHol(hol = holidays, year = 2018)

tempEmp  <- createEmp(empClass = "divisionmanager")
tempEmp1 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          dependents = rep(1L, times = 12))

cBegin <- "2018-02-01"
inHouse <- FALSE
tempEmp <- createEmp(empClass = "sectionhead")
tempEmp2 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          dependents = rep(2L, times = 12))

cBegin <- "2018-03-01"
inHouse <- FALSE
tempEmp <- createEmp(empClass = "supervisor")
tempEmp3 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          RF = FALSE,
                          dependents = rep(1L, times = 12))

cBegin <- "2018-04-01"
inHouse <- TRUE
tempEmp <- createEmp(empClass = "clerk")
tempEmp4 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          dependents = rep(1L, times = 12),
                          RF = TRUE)

inHouse <- TRUE
status <- "pro"
equipment <- "FL"
tempEmp <- createEmp(empClass = "operator")
tempEmp5 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          equipment = equipment,
                          dependents = rep(1L, times = 12))

cEnd <- "2018-10-31"
inHouse <- TRUE
status <- "sea"
tempEmp <- createEmp(empClass = "technical")
tempEmp6 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          cEnd = cEnd,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          dependents = rep(1L, times = 12))

cEnd <- "2018-10-31"
inHouse <- TRUE
status <- "age"
tempEmp <- createEmp(empClass = "laborer")
tempEmp7 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          cEnd = cEnd,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          dependents = rep(1L, times = 12))

tempEmp8 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          cEnd = cEnd,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          dependents = c(NA, rep(1L, times = 11)))

ID <- "S-240"
name <- "Basil Eric Rabi"
designation <- "Materials Engineering Supervisor"
costCenter <- "14000"
status <- "reg"
cBegin <- "2012-10-15"
inHouse <- TRUE
restday <- "Tuesday"
tempEmp <- createEmp(empClass = "divisionmanager")
tempEmp9 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          dependents = c(NA, rep(1L, times = 10), NA))

test_that("getHMO() works for budget", {
  expect_equal(
    abs(sum(getHMO(tempEmp1)$hmo) - (round((17603 * 2) / 12, digits = 2) * 12)) < 10,
    TRUE
  )
  expect_equal(
    abs(sum(getHMO(tempEmp2)$hmo) - (round((17603 + (17603 * 2)) / 12, digits = 2) * 11)) < 10,
    TRUE
  )
  expect_equal(
    abs(sum(getHMO(tempEmp3)$hmo) - (round((13228 * 2) / 12, digits = 2) * 10)) < 10,
    TRUE)
  expect_equal(
    abs(sum(getHMO(tempEmp4)$hmo) - round((12521 * 2) / 12, digits = 2) * 9) < 10,
    TRUE
  )
  expect_equal(sum(getHMO(tempEmp5)$hmo), 0)
  expect_equal(sum(getHMO(tempEmp6)$hmo), 0)
  expect_equal(sum(getHMO(tempEmp7)$hmo), 0)
  expect_equal(sum(getHMO(tempEmp8)$hmo), 0)
  expect_equal(sum(getHMO(tempEmp9)$hmo),
               sum(round(
                 (17603 / 12) + (17603 * c(0, rep(1, times = 10), 0) / 12)
                 , digits = 2
               )))
})

# Test for forecast

ID <- "S-240"
name <- "Basil Eric Rabi"
designation <- "Materials Engineering Supervisor"
costCenter <- "14000"
status <- "reg"
cBegin <- "2012-10-15"
inHouse <- TRUE
restday <- "Tuesday"
hol <- getHol(hol = holidays, year = 2018)

tempEmp <- createEmp(empClass = "divisionmanager")
tempEmp1 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          forecast = TRUE,
                          dependents = rep(1L, times = 12))

cBegin <- "2018-02-01"
inHouse <- FALSE
tempEmp <- createEmp(empClass = "groupmanager")
tempEmp2 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          forecast = TRUE,
                          dependents = rep(1L, times = 12))

cBegin <- "2018-03-01"
inHouse <- FALSE
tempEmp <- createEmp(empClass = "clerk")
tempEmp3 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          RF = FALSE,
                          forecast = TRUE,
                          dependents = rep(1L, times = 12))

cBegin <- "2018-04-01"
inHouse <- TRUE
status <- "sea"
tempEmp <- createEmp(empClass = "technical")
tempEmp4 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          forecast = TRUE,
                          dependents = rep(1L, times = 12))

inHouse <- TRUE
status <- "sea"
equipment <- "FL"
tempEmp <- createEmp(empClass = "operator")
tempEmp5 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          equipment = equipment,
                          forecast = TRUE,
                          dependents = rep(1L, times = 12))

cEnd <- "2018-10-31"
inHouse <- TRUE
status <- "sea"
tempEmp <- createEmp(empClass = "technical")
tempEmp6 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          cEnd = cEnd,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          forecast = TRUE,
                          dependents = rep(1L, times = 12))

cEnd <- "2018-10-31"
inHouse <- TRUE
status <- "age"
tempEmp <- createEmp(empClass = "laborer")
tempEmp7 <- initREmployee(theObject = tempEmp,
                          ID = ID,
                          name = name,
                          designation = designation,
                          costCenter = costCenter,
                          status = status,
                          cBegin = cBegin,
                          cEnd = cEnd,
                          inHouse = inHouse,
                          restday = restday,
                          hol = hol,
                          forecast = TRUE,
                          dependents = rep(1L, times = 12))

test_that("getHMO() works", {
  expect_equal(
    abs(sum(getHMO(tempEmp1)$hmo) - (round((15523 + 14823) / 12, digits = 2) * 12)) < 10,
    TRUE
  )
  expect_equal(
    abs(sum(getHMO(tempEmp2)$hmo) - (round((15523 + 14823) / 12, digits = 2) * 11)) < 10,
    TRUE
  )
  expect_equal(
    abs(sum(getHMO(tempEmp3)$hmo) - (round((11539 + 11139) / 12, digits = 2) * 10)) < 10,
    TRUE
  )
  expect_equal(sum(getHMO(tempEmp4)$hmo), 0)
  expect_equal(sum(getHMO(tempEmp5)$hmo), 0)
  expect_equal(sum(getHMO(tempEmp6)$hmo), 0)
  expect_equal(sum(getHMO(tempEmp7)$hmo), 0)
})

rm(list = ls())