1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
chartype_frame <- function() {
chars <- character()
desc <- character()
chars[1] <- "\u0001\u001f"
desc[1] <- "C0 control code"
chars[2] <- "\a\b\f\n\r\t"
desc[2] <- "Named control code"
chars[3] <- "abcdefuvwxyz"
desc[3] <- "ASCII"
chars[4] <- "\u0080\u009f"
desc[4] <- "C1 control code"
chars[5] <- paste0(
"\u00a0\u00a1\u00a2\u00a3\u00a4\u00a5",
"\u00fa\u00fb\u00fc\u00fd\u00fe\u00ff"
)
desc[5] <- "Latin-1"
chars[6] <- paste0(
"\u0100\u0101\u0102\u0103\u0104\u0105",
"\u0106\u0107\u0108\u0109\u010a\u010b"
)
desc[6] <- "Unicode"
chars[7] <- "\uff01\uff02\uff03\uff04\uff05\uff06"
desc[7] <- "Unicode wide"
chars[8] <- "\ue00\u2029"
desc[8] <- "Unicode control"
chars[9] <- paste0(
"x\u00adx\u200bx\u200cx\u200dx\u200ex\u200f",
"x\u034fx\ufeffx", intToUtf8(0xE0001), "x",
intToUtf8(0xE0020), "x", intToUtf8(0xE01EF), "x"
)
desc[9] <- "Unicode ignorable"
chars[10] <- paste0(
"a\u0300a\u0301a\u0302a\u0303a\u0304a\u0305",
"a\u0306a\u0307a\u0308a\u0309a\u030aa\u030b"
)
desc[10] <- "Unicode mark"
chars[11] <- paste0(
intToUtf8(0x1F600), intToUtf8(0x1F601),
intToUtf8(0x1F602), intToUtf8(0x1F603),
intToUtf8(0x1F604), intToUtf8(0x1F483)
)
desc[11] <- "Emoji"
chars[12] <- paste0("x", intToUtf8(0x10ffff), "x")
desc[12] <- "Unassigned"
chars[13] <- "\xfd\xfe\xff"
desc[13] <- "Invalid"
chars[14] <- "\\"
desc[14] <- "Backslash"
chars[15] <- '"'
desc[15] <- "Quote"
Encoding(chars) <- "UTF-8"
data.frame(chars, desc, stringsAsFactors = FALSE)
}
test_that("output test", {
expect_snapshot({
pillar(add_special(letters[1:5]))
pillar(add_special(paste(letters, collapse = "")))
pillar(add_special(paste(letters, collapse = "")), width = 10)
pillar(add_special(paste(letters, collapse = "")), width = 3)
pillar(add_special(c("")), width = 5)
pillar(add_special(c(" ")), width = 5)
pillar(add_special(c(" a")), width = 5)
pillar(add_special(c("a ")), width = 5)
pillar(add_special(c("a b")), width = 5)
pillar(add_special(c("\t")), width = 10)
pillar(add_special(c("a\nb")), width = 10)
pillar(add_special(c("a\001b")), width = 10)
})
})
test_that("output test (not on Windows)", {
skip_on_os("windows")
if (getRversion() == "4.0.4") {
# This seems to show differently on the Mac:
# writeLines(evaluate::evaluate('c("\\u6210", "\\u6210")')[[1]]$src)
skip_on_os("mac")
}
expect_snapshot({
pillar(add_special("\u6210\u4ea4\u65e5"), title = "\u6210\u4ea4")
pillar(add_special("\u6210\u4ea4"), title = "\u6210\u4ea4\u65e5")
pillar(add_special(1L), title = "\u6210\u4ea4\u65e5")
})
# Spurious warnings on Windows
skip_on_os("solaris")
suppressWarnings(
expect_snapshot({
ctl_colonnade(chartype_frame(), width = 50)
})
)
})
|
