tests/testthat/test_legal.R

In eschoie26/legaldrink: Legal drinking age COUNTRY FINDER

library(testthat)

test_that("16 years old drinking in Canada", {
  expect_equal(checklegal(16, "Canada"), "Drinking age varies by province")
}
)

test_that("22 years old drinking in the United States",{
  expect_equal(checklegal(22, "United States"), "Legal to drink in this country!")
})