tests/testthat/test-basic_unit_conversion.R

In R-kicker/unitconv: Unit conversion features for physical measures in Petroleum Engineering

test_that("basic unit conversion works", {

  expect_error(uc(1, "kg/m3", "lbft3"))

  expect_warning(uc(1, "kg/m3", "lb/ft3"))

  expect_lte(abs(uc(u(1, "mkm2"), to = "mD") - 1013.25), 1e-6)

  expect_lte(abs(uc(uc(uc(u(1, "ft3"), to = "l"), "l", "cm3"), "cm3", "bbl")) - 0.1781, 1e-5)

  expect_equivalent(uc(uc(u(list(1, 2), "ton"), "ton", "lb"), "lb", "ton"),
                    u(list(1, 2), "ton"))

})