tests/testthat/test-test_helpers.R

In epijim/admiral: ADaM in R Asset Library

test_that("expect_dfs_equal works", {

  a <- data.frame(x = 1:3, y = 4:6)
  b <- data.frame(x = 1:3, y = 5:7)

  expect_error(
    expect_dfs_equal(a, b, keys = "x"),
    regexp = "Differences found\\.*"
  )

})