tests/testthat/test-make-expectation.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)"
  )
})

Try the testthat package in your browser

Any scripts or data that you put into this service are public.

testthat documentation built on Jan. 21, 2022, 1:10 a.m.