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>")
})
Robertus100/tibble documentation built on May 9, 2019, 10:09 a.m.