+#!/usr/bin/perl -T
+
+
+use warnings;
+use strict;
+
+use Test::More;
+use Test::XML;
+
+BEGIN {
+ use_ok('HTML::TreeBuilder');
+ use_ok('HTML::Element::Library');
+}
+
+
+my $initial_lol = [ note => [ shopping => [ item => 'sample' ] ] ];
+my $new_lol = HTML::Element::newchild($initial_lol, shopping => shopping_items());
+
+
+sub shopping_items {
+ my @shopping_items = map { [ item => $_ ] } qw(bread butter beans);
+ @shopping_items;
+}
+
+my $expected = [
+ 'note',
+ [
+ 'shopping',
+ [
+ 'item',
+ 'bread'
+ ],
+ [
+ 'item',
+ 'butter'
+ ],
+ [
+ 'item',
+ 'beans'
+ ]
+ ]
+ ];
+
+use Data::Dumper;
+warn Dumper($new_lol);
+
+is_deeply($new_lol, $expected, 'test unrolling');
+
+
+
+done_testing;