1 # This might look like shell script, but it's actually -*- perl -*-
5 use Test::More qw(no_plan);
8 use HTML::Element::Library;
13 my $tree = HTML::TreeBuilder->new_from_file('t/html/highlander.html');
19 under10 => sub { $_[0] < 10} ,
20 under18 => sub { $_[0] < 18} ,
26 my $root = "t/html/highlander-$age";
28 local $_; # XML::Parser does not like read-only $_ (RT #101129)
29 is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), "XML for $age");
33 tage($_) for qw(5 15 50);