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>$<NA></dt> 39\t\t<dd>1</dd> 40\t<dt>$<NA></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