]> iEval git - html-element-library.git/blob - t/highlander.t
first commit
[html-element-library.git] / t / highlander.t
1 # This might look like shell script, but it's actually -*- perl -*-
2 use strict;
3 use lib qw(t/ t/m/);
4
5 use File::Slurp;
6 use Test::More qw(no_plan);
7
8 use TestUtils;
9 use HTML::TreeBuilder;
10 use HTML::Element::Library;
11
12
13 sub tage {
14 my $age = shift;
15 my $tree = HTML::TreeBuilder->new_from_file('t/html/highlander.html');
16
17
18 $tree->highlander
19 (age_dialog =>
20 [
21 under10 => sub { $_[0] < 10} ,
22 under18 => sub { $_[0] < 18} ,
23 welcome => sub { 1 }
24 ],
25 $age
26 );
27
28 my $root = "t/html/highlander-$age";
29
30 my $generated_html = ptree($tree, "$root.gen");
31
32 is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for $age");
33 }
34
35
36 tage($_) for qw(5 15 50);
This page took 0.05203 seconds and 4 git commands to generate.