packrat/lib/x86_64-apple-darwin15.6.0/3.6.0/testthat/examples/test-failure.R

plus <- function(x, y) 1 + 1

test_that("one plus one is two", {
  expect_equal(plus(1, 1), 2)
})

test_that("two plus two is four", {
  expect_equal(plus(2, 2), 4)
})
adnaniazi/krauseNiazi2019Analyses documentation built on June 9, 2019, 7:22 p.m.