fixes

[html-element-library.git] / t / newchild.t

#!/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;