Refactor tests (second pass)

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

diff --git a/t/iter2.t b/t/iter2.t
deleted file mode 100644 (file)
index 5d48877..0000000
--- a/t/iter2.t
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-use t::lib tests => 1;
-
-my $tree = mktree 't/html/iter2.html';
-
-$tree->iter2(
-       # default wrapper_ld ok
-       wrapper_data => [
-               [ Programmer => 'one who likes Perl and Seamstress' ],
-               [ DBA        => 'one who does business as' ],
-               [ Admin      => 'one who plays Tetris all day' ]
-       ],
-       wrapper_proc => sub {
-               my ($container) = @_;
-
-               # only keep the last 2 dts and dds
-               my @content_list = $container->content_list;
-               $container->splice_content(0, @content_list - 2);
-       },
-       # default item_ld is k00l
-       # default item_data is phrEsh
-       # default item_proc will do w0rk
-       splice       => sub {
-               my ($container, @item_elems) = @_;
-               $container->unshift_content(@item_elems);
-       },
-
-       debug => $ENV{TEST_VERBOSE},
-);
-
-isxml $tree, 't/html/iter2.exp', 'iter2';