tests/testthat/test-square.R

In BangyaoZhao/package1: Foe Educational Purpose

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})

test_that("addition works", {
  expect_equal(add(2,2), 4)
})

test_that("cubic works", {
  expect_equal(cubic(2), 8)
})

test_that("cubic works", {
  expect_equal(cubic(3), 27)
})