Refactor tests (second pass)

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

diff --git a/t/newchild.t b/t/newchild.t
deleted file mode 100644 (file)
index edeff5e..0000000
--- a/t/newchild.t
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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');