]> iEval git - html-element-library.git/blob - t/highlander.t
Refactor tests (first pass)
[html-element-library.git] / t / highlander.t
1 #!/usr/bin/perl
2 use t::lib tests => 3;
3
4 sub test {
5 my $age = shift;
6 my $tree = mktree 't/html/highlander.html';
7
8 $tree->highlander(
9 age_dialog => [
10 under10 => sub { $_[0] < 10 },
11 under18 => sub { $_[0] < 18 },
12 welcome => sub { 1 }
13 ],
14 $age
15 );
16
17 local $_; # XML::Parser does not like read-only $_ (RT #101129)
18 isxml $tree, "t/html/highlander-$age.exp", "highlander for $age";
19 }
20
21 test $_ for qw(5 15 50);
This page took 0.044029 seconds and 4 git commands to generate.