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

#!/usr/bin/perl -T
use lib '.';
use t::lib tests => 1;

my @list = map { [item => $_] } qw/bread butter beans/;
my $initial_lol = [ note => [ list => [ item => 'sample' ] ] ];
my ($new_lol) = HTML::Element::newchild($initial_lol, list => @list);

my $expected = [note => [list => [item => 'bread'], [item => 'butter'], [item => 'beans']]];
Test::More::is_deeply($new_lol, $expected, 'test unrolling');
Commit	Line	Data
271d5078	1	#!/usr/bin/perl -T
aa016126 MG	2	use lib '.';
aa016126 MG	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']]];
aa016126 MG	10	Test::More::is_deeply($new_lol, $expected, 'test unrolling');