unit test match funs

tests/testthat/test_utils.R

@@ -47,6 +47,18 @@ test_that("Function subs out NAs in numeric vectors with 0", {
   expect_equivalent(na_zero(c(1:10, NA)), c(1:10, 0))
 })
 
+# Test that na_sum works
+test_that("NA Sum takes sum setting NA values to 0", {
+  expect_equivalent(na_sum(c(1:10, NA)), sum(1:10, 0))
+  expect_message(na_sum(c(1:10, NA)), "Taking a sum with missing values equal to 0, be careful 🐲")
+})
+
+test_that("na_sum fails with non-numerics", {
+  expect_error(na_sum(LETTERS))
+  expect_error(na_sum(as.factor(1:10)))
+})
+
+
 context("Test Utilities - Pretty Count")