tests/testthat/test_solubility.R

In tomhull/airsea: Tools for air/sea gas exchange

library(airsea)
context("solubility")

test_that("Csat gives expected values", {
              expect_equal(Csat(10, 35)/44.6608, 6.315, tolerance = 0.0001)
              expect_equal(Csat(10, 35, unit = "umolkg"), 274.610, tolerance = 0.0001)
})