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
|
start_app()
on.exit(stop_app(), add = TRUE)
test_that("deep lists ul", {
test_ul = function(n = 2) {
for(i in seq_len(n)) {
cli::cli_ul()
cli::cli_li(paste0("Level ",i))
}
}
expect_snapshot(
for (i in 1:4) test_ul(i)
)
})
test_that("deep lists ol", {
test_ol = function(n = 2) {
for(i in seq_len(n)) {
cli::cli_ol()
cli::cli_li(paste0("Level ",i))
}
}
expect_snapshot(
for (i in 1:4) test_ol(i)
)
})
test_that("deep lists ol ul", {
test_ol_ul = function(n = 2) {
for(i in seq_len(n)) {
cli::cli_ol()
cli::cli_li(paste0("Level ",2*i-1))
cli::cli_ul()
cli::cli_li(paste0("Level ",2*i))
}
}
expect_snapshot(
for (i in 1:4) test_ol_ul(i)
)
})
test_that("deep lists ul ol", {
test_ul_ol = function(n = 2) {
for(i in seq_len(n)) {
cli::cli_ul()
cli::cli_li(paste0("Level ",2*i-1))
cli::cli_ol()
cli::cli_li(paste0("Level ",2*i))
}
}
expect_snapshot(
for (i in 1:4) test_ul_ol(i)
)
})
|
