tests/testthat/test-eq_sol.R

In bentrueman/pbcusol: Predict Lead and Copper Solubility

test_that("Hydrocerussite solubility minimum is ~ 68 ppb", {
  expect_equal(round(eq_sol(9.8, 3.7, 0,  phase = "Hydcerussite", element = "Pb")$pb_ppb), 68)
})

test_that("eq_sol() accepts the argument 'print = '", {
  expect_equal(
    class(eq_sol(ph = 7, dic = 5, phase = "Cerussite", print = "input", element = "pb")),
    "phr_input"
  )
})