1test_that('plain lists display correctly', {
2	expect_identical(repr_html(list(1, 2)), '<ol>
3\t<li>1</li>
4\t<li>2</li>
5</ol>
6')
7})
8
9test_that('named lists display correctly', {
10	expect_identical(repr_html(list(a = 1, b = 2)), '<dl>
11\t<dt>$a</dt>
12\t\t<dd>1</dd>
13\t<dt>$b</dt>
14\t\t<dd>2</dd>
15</dl>
16')
17})
18
19test_that('lists with unknown element types don’t display', {
20	methods::setClass('__unknown', methods::representation(n = 'character'))
21	expect_identical(repr_html(list(1, methods::new('__unknown'))), NULL)
22})
23
24test_that('lists with nonexistant names work', {
25	expect_identical(repr_html(list(a = 0, 1)), '<dl>
26\t<dt>$a</dt>
27\t\t<dd>0</dd>
28\t<dt>[[2]]</dt>
29\t\t<dd>1</dd>
30</dl>
31')
32})
33
34test_that('NAs can occur in list names', {
35	l <- as.list(1:2)
36	names(l) <- c(NA, NA)
37	expect_identical(repr_html(l), '<dl>
38\t<dt>$&lt;NA&gt;</dt>
39\t\t<dd>1</dd>
40\t<dt>$&lt;NA&gt;</dt>
41\t\t<dd>2</dd>
42</dl>
43')
44})
45
46test_that('Lists with empty strings as names work', {
47	l <- structure(list(1), names = '')
48	expect_identical(repr_html(l), '<ol>
49\t<li>1</li>
50</ol>
51')
52})
53