tests/testthat/test-tbl_sum.R

In hadley/tibble: Simple Data Frames

test_that("output test", {
  expect_snapshot({
    str(tbl_sum(1:3))
    str(tbl_sum(vctrs::new_data_frame(a = 1:3, class = "tbl")))
    str(tbl_sum(tibble(a = 1:3, b = letters[2:4])))

    dim_desc(trees)
    dim_desc(Titanic)
    dim_desc(1:3)
  })
})