tests/testthat/test-utilities.R

In gamma: Dose Rate Estimation from in-Situ Gamma-Ray Spectrometry Measurements

test_that("Equality within a vector", {
  expect_true(isEqual(c(1, 1, 1)))
  expect_false(isEqual(c(1, 1, 1.1)))

  expect_error(isEqual(LETTERS), "A numeric vector is expected.")

})
test_that("Positive numbers", {
  expect_true(isPositive(c(1, 1, 1), strict = FALSE, na.rm = TRUE))
  expect_false(isPositive(c(-1, 1, 1), strict = FALSE, na.rm = TRUE))
  expect_true(isPositive(c(0, 1, 1), strict = FALSE, na.rm = TRUE))
  expect_false(isPositive(c(0, 1, 1), strict = TRUE, na.rm = TRUE))
  expect_true(is.na(isPositive(c(NA, 1, 1), strict = FALSE, na.rm = FALSE)))

  expect_error(isPositive(LETTERS), "A numeric vector is expected.")
})
test_that("Test reverse cumsum", {
  t <- expect_silent(reverse_cumsum(1:100))
  expect_equal(sum(t[1:2]), expected =  10099)

})