tests/testthat/test-r-convert.R

In MarijnJABoer/befitteR: A bundle of health, fitness, food and body related equations, formula's and more, so you can become fit

context("test-r-convert.R")

test_that("conversion functions work correctly", {
  expect_equal(lbs_to_kg(10), 4.54, tolerance = 0.01)
  expect_equal(inch_to_cm(10), 25.40)
  expect_equal(fluidounce_to_liter(70), 2.07, tolerance = 0.01)
  expect_equal(kcal_to_fat(100), 11.1, tolerance = 0.01)
  expect_equal(kcal_to_protein(100), 25)
  expect_equal(kcal_to_carbs(100), 25)
  expect_equal(kcal_to_joule(100), 418400)
  expect_equal(fat_to_kcal(100), 770)

  expect_error(lbs_to_kg("10"))
  expect_error(inch_to_cm("10"))
  expect_error(fluidounce_to_liter("70"))
  expect_error(kcal_to_fat("100"))
  expect_error(kcal_to_protein("100"))
  expect_error(kcal_to_carbs("100"))
  expect_error(kcal_to_joule("100"))
  expect_error(fat_to_kcal("100"))
})