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