]>
Commit | Line | Data |
---|---|---|
aa016126 MG |
1 | #!/usr/bin/perl |
2 | use t::lib tests => 3; | |
67e78ff2 | 3 | |
aa016126 MG |
4 | sub replace_age { |
5 | my ($branch, $age) = @_; | |
6 | $branch->look_down(id => 'age')->replace_content($age); | |
67e78ff2 | 7 | } |
8 | ||
aa016126 MG |
9 | sub test { |
10 | my $age = shift; | |
11 | my $tree = mktree 't/html/highlander2.html'; | |
12 | my $if_then = $tree->look_down(id => 'age_dialog')->highlander2( | |
13 | cond => [ | |
14 | under10 => [ | |
15 | sub { $_[0] < 10 }, | |
16 | \&replace_age | |
17 | ], | |
18 | under18 => [ | |
19 | sub { $_[0] < 18 }, | |
20 | \&replace_age | |
21 | ], | |
22 | welcome => [ | |
23 | sub { 1 }, | |
24 | \&replace_age | |
25 | ] | |
26 | ], | |
27 | cond_arg => [ $age ] | |
28 | ); | |
29 | ||
30 | local $_; # XML::Parser does not like read-only $_ (RT #101129) | |
31 | isxml ($tree, "t/html/highlander2-$age.exp", "highlander2 for age $age"); | |
67e78ff2 | 32 | } |
33 | ||
aa016126 | 34 | test $_ for qw(5 15 27); |