stRoke/tests/testthat/test-age_calc.R

5 lines
165 B
R
Raw Normal View History

2022-09-22 14:20:46 +02:00
test_that("age_calc works for vectors of length 1 (scalars)", {
result<-age_calc(as.Date("1945-10-23"),as.Date("2018-09-30"))
expect_equal(round(result), 73)
})