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
|
test_that("make_style without name", {
pink <- make_ansi_style("pink")
expect_true(inherits(pink, "cli_ansi_style"))
})
test_that("hexa color regex works", {
positive <- c("#000000", "#ffffff", "#0f0f0f", "#f0f0f0",
"#00000000", "#ffffffff", "#0f0f0f00", "#f0f0f055")
negative <- c("", "#12345", "123456", "1234567", "12345678",
"#1234567", "#1234ffg", "#gggggx", "foo#123456",
"foo#123456bar")
for (color in positive) {
expect_true(grepl(hash_color_regex, color))
expect_true(grepl(hash_color_regex, toupper(color)))
}
for (color in negative) {
expect_false(grepl(hash_color_regex, color))
expect_false(grepl(hash_color_regex, toupper(color)))
}
})
test_that("we fall back for ANSI 8 if needed", {
yellow3 <- make_ansi_style("yellow3", colors = 8)
expect_equal(yellow3("foobar"), col_yellow("foobar"))
})
test_that("we can create a style from an R color", {
red4 <- make_ansi_style("red4")
red_text <- red4("text")
expect_true(num_ansi_colors() == 1 || ansi_has_any(red_text))
})
test_that("errors", {
expect_snapshot(
error = TRUE,
make_ansi_style(1:10)
)
})
test_that("make_ansi_style", {
withr::local_options(cli.num_colors = 256)
cf <- crayon::red
expect_equal(
make_ansi_style(cf)("foo"),
col_red("foo")
)
expect_equal(
make_ansi_style("dim")("foo"),
style_blurred("foo")
)
expect_equal(
make_ansi_style("red", bg = TRUE)("red"),
bg_red("red")
)
expect_equal(
make_ansi_style(cbind(c(200, 200, 100)), grey = TRUE)("200-200-100"),
ansi_string("\033[38;5;250m200-200-100\033[39m")
)
withr::local_options(cli.num_colors = truecolor)
expect_equal(
make_ansi_style(cbind(c(200, 200, 100)))("200-200-100"),
ansi_string("\033[38;2;200;200;100m200-200-100\033[39m")
)
expect_equal(
make_ansi_style(cbind(c(200, 200, 100)), bg = TRUE)("200-200-100"),
ansi_string("\033[48;2;200;200;100m200-200-100\033[49m")
)
# errors
expect_snapshot(
error = TRUE,
make_ansi_style(1:10)
)
expect_snapshot(
error = TRUE,
make_ansi_style("foobar")
)
})
|
