Fix tests

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

# This might look like shell script, but it's actually -*- perl -*-
use strict;

use File::Slurp;
use Test::More qw(no_plan);

use HTML::TreeBuilder;
use HTML::Element::Library;
use Test::XML;

# this is a simpler call to iter2()

my $root = 't/html/dual_iter';

my $tree = HTML::TreeBuilder->new_from_file("$root.html");

my $dl = $tree->look_down(id => 'service_plan');


my @items = (
  ['the pros' => 'never have to worry about service again'],
  ['the cons' => 'upfront extra charge on purchase'],
  ['our choice' => 'go with the extended service plan']
 );


$tree->iter2(

  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); 
  },


  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");