tests/testthat/test-make-expectation.R

context("make_expectation")

test_that("make_expectation returns and prints expectation", {
  x <- 1:5
  out <- capture_output(
    expect_equal(make_expectation(x), quote(expect_equal(x, 1:5)))
  )
  expect_equal(
    out,
    "expect_equal(x, 1:5)"
  )
})
r-lib/testthat documentation built on April 19, 2019, 7:05 p.m.