+++ /dev/null
-#!/usr/bin/perl
-use t::lib tests => 3;
-
-sub test {
- my $age = shift;
- my $tree = mktree 't/html/highlander.html';
-
- $tree->highlander(
- age_dialog => [
- under10 => sub { $_[0] < 10 },
- under18 => sub { $_[0] < 18 },
- welcome => sub { 1 }
- ],
- $age
- );
-
- local $_; # XML::Parser does not like read-only $_ (RT #101129)
- isxml $tree, "t/html/highlander-$age.exp", "highlander for $age";
-}
-
-test $_ for qw(5 15 50);