tests/testthat/test-make-expectation.R

In r-lib/testthat: Unit Testing for R

test_that("make_expectation returns and prints expectation", {

  x <- 1:5
  out <- capture_output(
    expect_equal(make_expectation(x), bquote(expect_equal(x, .(1:5))))
  )
  expect_equal(
    out,
    "expect_equal(x, 1:5)"
  )
})