]> iEval git - html-element-library.git/blame - t/iter.t
Fix tests
[html-element-library.git] / t / iter.t
CommitLineData
67e78ff2 1# This might look like shell script, but it's actually -*- perl -*-
2use strict;
67e78ff2 3
4use File::Slurp;
5use Test::More qw(no_plan);
6
67e78ff2 7use HTML::TreeBuilder;
8use HTML::Element::Library;
d4b9a41a 9use Test::XML;
67e78ff2 10
11my $root = 't/html/iter';
12
13my $tree = HTML::TreeBuilder->new_from_file("$root.html");
14
15my $li = $tree->look_down(class => 'store_items');
16
17my @items = qw(bread butter vodka);
18
19$tree->iter($li, @items);
20
67e78ff2 21
d4b9a41a 22is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"),
67e78ff2 23 "HTML for generated li");
This page took 0.021551 seconds and 4 git commands to generate.