Refactor tests (first pass)

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

diff --git a/t/iter2.t b/t/iter2.t
index 8f3f31209ff2d537db5137c06f26dce64140a134..5d4887713784f2d7378c1431d64d0d1d679a70ea 100644 (file)
--- a/t/iter2.t
+++ b/t/iter2.t
@@ -1,43 +1,31 @@
-# This might look like shell script, but it's actually -*- perl -*-
-use strict;
+#!/usr/bin/perl
+use t::lib tests => 1;
 
-use File::Slurp;
-use Test::More qw(no_plan);
-
-use HTML::TreeBuilder;
-use HTML::Element::Library;
-use Test::XML;
-
-my $root = 't/html/iter2';
-
-my $tree = HTML::TreeBuilder->new_from_file("$root.html");
-
-my @items = (
-  [    Programmer => 'one who likes Perl and Seamstress', ],
-  [ DBA        => 'one who does business as', ],
-  [ Admin      => 'one who plays Tetris all day' ]
- );
+my $tree = mktree 't/html/iter2.html';
 
 $tree->iter2(
-  # default wrapper_ld ok
-  wrapper_data => \@items,
-  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 => 1,
- );
-  
-
-is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), "XML for generated li");
+       # 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';