library(testthat)
context("Test test_2_plus_2.")
test_that("2 + 2 = 4", {
  expect_equivalent(
    2 + 2,
    4
  )
})