1test_that("max argument", {
2  expect_snapshot({
3    print(num(1:10), max = 5)
4    print(char(letters), max = 10)
5  })
6})
7
8test_that("max.print option", {
9  local_options(max.print = 3)
10
11  expect_snapshot({
12    num(1:10)
13    char(letters)
14  })
15})
16