tests/testthat/test-package.R

context("bingo")

test_that("duplicate squares are removed", {
  x <- c("a", "a", "b")
  expect_identical(c("a", "b"), vet_squares(x))
})
sephill/bingo-cards documentation built on May 29, 2019, 6:54 p.m.