tests/testthat/test-type_sum.R

context("type_sum")

test_that("works with glimpse", {
  foo <- as_override_type_sum(2011:2013)
  expect_equal(type_sum(foo), "SC")
  expect_output(glimpse(tibble(foo)), "foo <SC>")
})
krlmlr/tibble documentation built on Jan. 15, 2020, 7:56 a.m.