tests/testthat/test-SUMIF.R

In njbultman/xlsxFunctions: Use Common Microsoft Excel Functions in R

test_that("Return zero on type mismatch", {
  expect_equal(SUMIF(c(1, 2, 3), c(3, 1, 3), "hi"), 0)
})

test_that("Fail when attempting to sum characters", {
  expect_error(SUMIF(c("Nick", "Tyler", "Nate"), c(3, 1, 3), 3), message = NULL)
})

test_that("Work as expected", {
  expect_equal(SUMIF(c(1, 2, 3), c(3, 1, 3), 3), 4)
})