1test_that("output test", {
2  x <- new_tbl(list(
3    column_zero_zero = 1:3 + 0.23,
4    col_01 = new_tbl(list(col_02 = letters[1:3], col_03 = factor(letters[1:3]))),
5    col_04 = ordered(letters[1:3])
6  ))
7
8  expect_snapshot({
9    tbl_format_setup(x, width = 4)
10    tbl_format_setup(x, width = 5)
11    tbl_format_setup(x, width = 6)
12    tbl_format_setup(x, width = 7)
13    tbl_format_setup(x, width = 8)
14    tbl_format_setup(x, width = 9)
15    tbl_format_setup(x, width = 10)
16    tbl_format_setup(x, width = 11)
17    tbl_format_setup(x, width = 12)
18    tbl_format_setup(x, width = 13)
19    tbl_format_setup(x, width = 14)
20    tbl_format_setup(x, width = 15)
21    tbl_format_setup(x, width = 16)
22    tbl_format_setup(x, width = 17)
23    tbl_format_setup(x, width = 18)
24    tbl_format_setup(x, width = 19)
25    tbl_format_setup(x, width = 20)
26    tbl_format_setup(x, width = 21)
27    tbl_format_setup(x, width = 22)
28    tbl_format_setup(x, width = 23)
29    tbl_format_setup(x, width = 24)
30    tbl_format_setup(x, width = 25)
31    tbl_format_setup(x, width = 26)
32    tbl_format_setup(x, width = 27)
33    tbl_format_setup(x, width = 28)
34    tbl_format_setup(x, width = 29)
35    tbl_format_setup(x, width = 30)
36    tbl_format_setup(x, width = 31)
37    tbl_format_setup(x, width = 32)
38    tbl_format_setup(x, width = 33)
39    tbl_format_setup(x, width = 34)
40    tbl_format_setup(x, width = 35)
41    tbl_format_setup(x, width = 36)
42    tbl_format_setup(x, width = 37)
43    tbl_format_setup(x, width = 38)
44    tbl_format_setup(x, width = 39)
45    tbl_format_setup(x, width = 40)
46    tbl_format_setup(x, width = 41)
47    tbl_format_setup(x, width = 42)
48    tbl_format_setup(x, width = 43)
49    tbl_format_setup(x, width = 44)
50    tbl_format_setup(x, width = 45)
51    tbl_format_setup(x, width = 46)
52    tbl_format_setup(x, width = 47)
53    tbl_format_setup(x, width = 48)
54    tbl_format_setup(x, width = 49)
55    tbl_format_setup(x, width = Inf)
56  })
57})
58
59test_that("tbl_format_setup() results", {
60  local_unknown_rows()
61
62  expect_snapshot({
63    tbl_format_setup(as_tbl(mtcars), width = 80)
64
65    tbl_format_setup(as_tbl(mtcars), width = 30, n = 8)
66
67    tbl_format_setup(as_tbl(trees), width = 30, n = 100)
68
69    "Unknown rows"
70    tbl_format_setup(as_unknown_rows(trees[1:9, ]), width = 30, n = 10)
71
72    tbl_format_setup(as_unknown_rows(trees[1:10, ]), width = 30, n = 10)
73
74    tbl_format_setup(as_unknown_rows(trees[1:11, ]), width = 30, n = 10)
75
76    "No rows"
77    tbl_format_setup(new_tbl(list(a = character(), b = logical())), width = 30)
78
79    "No columns"
80    tbl_format_setup(as_tbl(trees[character()]), width = 30, n = 5L)
81
82    "No rows, unknown"
83    tbl_format_setup(as_unknown_rows(trees[integer(), ]), width = 30, n = 5L)
84
85    "No columns, unknown"
86    tbl_format_setup(as_unknown_rows(trees[, character()]), width = 30, n = 5L)
87
88    "Long table, unknown"
89    tbl_format_setup(
90      as_unknown_rows(new_tbl(list(a = seq.int(10000)))),
91      n = 5L,
92      width = 30L
93    )
94  })
95})
96