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

#!/usr/bin/perl
use t::lib tests => 3;

sub replace_age {
	my ($branch, $age) = @_;
	$branch->look_down(id => 'age')->replace_content($age);
}

sub test {
	my $age = shift;
	my $tree = mktree 't/html/highlander2.html';
	my $if_then = $tree->look_down(id => 'age_dialog')->highlander2(
		cond => [
			under10 => [
				sub { $_[0] < 10 },
				\&replace_age
			],
			under18 => [
				sub { $_[0] < 18 },
				\&replace_age
			],
			welcome => [
				sub { 1 },
				\&replace_age
			]
		],
		cond_arg => [ $age ]
	);

	local $_; # XML::Parser does not like read-only $_ (RT #101129)
	isxml ($tree, "t/html/highlander2-$age.exp", "highlander2 for age $age");
}

test $_ for qw(5 15 27);
Commit	Line	Data
aa016126 MG	1	#!/usr/bin/perl
aa016126 MG	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	}
67e78ff2	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	}
67e78ff2	33
aa016126	34	test $_ for qw(5 15 27);