[html-element-library.git] / t / highlander.t

#!/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);
Commit	Line	Data
aa016126 MG	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";
67e78ff2	19	}
67e78ff2	20
aa016126	21	test $_ for qw(5 15 50);