tests/testthat/test-convert_distance.R

In scarecrow21/convertr: Convert Units of Measurement

test_that("meter to kilometer", {
  expect_equal(meter_to_kilometer(1000), 1)
})

test_that("kilometer to meter", {
  expect_equal(kilometer_to_meter(1), 1000)
})

test_that("meter to centimeter", {
  expect_equal(meter_to_centimeter(1), 100)
})

test_that("centimeter to meter", {
  expect_equal(centimeter_to_meter(100), 1)
})


test_that("distance runner function", {
  expect_equal(convert_distance(1000, from = "meter", to="kilometer"), 1)
  expect_equal(convert_distance(1, from = "kilometer", to="meter"), 1000)
  expect_equal(convert_distance(1, from = "meter", to="centimeter"), 100)
  expect_equal(convert_distance(100, from = "centimeter", to="meter"), 1)
})