]>
Commit | Line | Data |
---|---|---|
271d5078 | 1 | #!/usr/bin/perl -T |
aa016126 MG |
2 | use lib '.'; |
3 | use t::lib tests => 1; | |
271d5078 | 4 | |
aa016126 MG |
5 | my @list = map { [item => $_] } qw/bread butter beans/; |
6 | my $initial_lol = [ note => [ list => [ item => 'sample' ] ] ]; | |
7 | my ($new_lol) = HTML::Element::newchild($initial_lol, list => @list); | |
271d5078 | 8 | |
aa016126 MG |
9 | my $expected = [note => [list => [item => 'bread'], [item => 'butter'], [item => 'beans']]]; |
10 | Test::More::is_deeply($new_lol, $expected, 'test unrolling'); |