tests/testthat/test-total.R

In BAAQMD/qtytools: Parse, Manipulate, and Predict Quantities

context("total")

test_that("numeric", {
  expect_equal(
    total(1:10), 55)
})

test_that("numeric with NAs", {
  expect_equal(
    total(c(1:3, NA, 4:10)),
    55)
})

test_that("digits", {
  expect_equal(total(c(889.234, 534.678), digits = 2), 1423.91)
})

test_that("signif", {
  expect_equal(total(c(889.234, 534.678), signif = 2), 1400)
})

test_that("character", {
  expect_error(
    total(c("foo", "bar")),
    "must be numeric")
})

test_that("overflow", {
  x <- rep(.Machine$integer.max, 2)
  expect_message(
    total(x, verbose = TRUE),
    "WARNING")
})

test_that("units", {
  x <- units::set_units(c(1, 2), "ton/yr")
  expect_equal(total(x), 3)
  expect_identical(total(x), set_units(3, "ton/yr"))
})