tests/testthat/test-tsi_chla.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_chla(a, b))
  expect_error(tsi_chla(b, b))
})

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

  expect_equal(n, 3)
})