tests/testthat/test-w_addition.R

In evanmascitti/soiltestr: Functions for Laboratory Soil Testing

test_that("w_extant computation accuracy", {

  x <- w_addition(OD_mass = 2000, w_extant = 0.05, w_desired = 0.18)

  expect_equal(
   object =  x$air_dry_soil_to_use,
   expected =  2100,
   tolerance = 0.1
    )

  expect_equal(
    object = x$water_to_add,
    expected = 260,
    tolerance = 0.1
  )
})