1 # This might look like shell script, but it's actually -*- perl -*-
6 use Test::More qw(no_plan);
10 use HTML::Element::Library;
15 my $tree = HTML::TreeBuilder->new_from_file('t/html/highlander.html');
21 under10 => sub { $_[0] < 10} ,
22 under18 => sub { $_[0] < 18} ,
28 my $root = "t/html/highlander-$age";
30 my $generated_html = ptree($tree, "$root.gen");
32 is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for $age");
36 tage($_) for qw(5 15 50);