]> iEval git - html-element-library.git/blame - t/highlander.t
Refactor tests (first pass)
[html-element-library.git] / t / highlander.t
CommitLineData
aa016126
MG
1#!/usr/bin/perl
2use t::lib tests => 3;
3
4sub 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";
67e78ff2 19}
20
aa016126 21test $_ for qw(5 15 50);
This page took 0.023708 seconds and 4 git commands to generate.