t/newchild.t

   1 #!/usr/bin/perl -T
   2 use lib '.';
   3 use t::lib tests => 1;
   4
   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);
   8
   9 my $expected = [note => [list => [item => 'bread'], [item => 'butter'], [item => 'beans']]];
  10 Test::More::is_deeply($new_lol, $expected, 'test unrolling');