tests/testthat/test-testthat-wrappers.R

In dm: Relational Data Models

testthat::test_that("testthat wrappers return the object", {
  expect_equal(
    expect_message_obj(
      {
        message("abc")
        "foo"
      },
      "a"
    ),
    "foo"
  )
  expect_equal(
    expect_warning_obj(
      {
        warning("abc")
        "foo"
      },
      "a"
    ),
    "foo"
  )
  expect_equal(
    expect_condition_obj(
      {
        message("abc")
        "foo"
      },
      "a"
    ),
    "foo"
  )
})