tests/testthat/test_convert_age.R

In glaggle/cadR:

test_vector <- c(
  "1 day",
  "7 days",
  "3 weeks",
  "2 month",
  "3 years"
  )

out_vector <- c(
  1, 7, 21, 60, 1068
)

testthat::test_that(
  "convert_age does what expected",
  {
    testthat::expect_equal(
      unname(sapply(test_vector, FUN = convert_age)),
      out_vector
      )
    }
  )