tests/testthat/test_siggaard_andersen_blood_co2_content_mmol_dl.R

In bakenzua/co2ntent: Calculate Carbon Dioxide and Oxygen content of blood

context("siggaard_andersen_blood_co2_content_mmol_dl")

test_that("siggaard_andersen_blood_co2_content_mmol_dl returns correct number", {
  expect_equal(siggaard_andersen_blood_co2_content_mmol_dl(
    hco3_mmols_dl=17,
    pco2=5,
    haemoglobin_g_dl = 10,
    so2_fraction = 0.9,
    inputs_are_kpa=TRUE
  ),  17.113554, tolerance=0.000001)
})

test_that("siggaard_andersen_blood_co2_content_mmol_dl is vectorised", {
  hco3s = c(17,17)
  pco2s = c(5,5)
  hbs = c(10,10)
  so2s = c(0.9, 0.9)
  expected <- c( 17.113554,  17.113554)

  expect_equal(siggaard_andersen_blood_co2_content_mmol_dl(
    hco3_mmols_dl=hco3s,
    pco2=pco2s,
    haemoglobin_g_dl = hbs,
    so2_fraction = so2s
    ), expected, tolerance=0.000001)
})