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);