tests/testthat/test-calcAge.R

context("calcAge")

test_that("Calcualte Age", {
  Age <- calcAge(birthday = "2000-01-01",
                givenday =  "2010-01-01")
  
  expect_type(Age, "double")
  expect_equal(round(Age), 10)
})
miraisolutions/SmaRP documentation built on March 23, 2022, 6:46 a.m.