tests/testthat/test-square.R

In BangyaoZhao/package2:

test_that("square works", {
  expect_equal(square(2),4)
})

test_that("square works", {
  expect_equal(square(3),9)
})

test_that("square works", {
  expect_equal(square(4),16)
})

test_that("square works", {
  expect_equal(square(5),25)
})