tests/testthat/test-tsi_tp.R

In corysauve/wadeR: Common calculations for aquatic ecology

test_that("Fails on negative values", {
  a <- c(0, 1, 2, 3)
  b <- c(0.001, 0.002, -0.003)

  expect_error(tsi_tp(a, b))
  expect_error(tsi_tp(b, b))
})

test_that("Rounding correctly", {
  x <- tsi_tp(0.123, digits = 3)
  n <- n_decimals(x)

  expect_equal(n, 3)
})