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

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

my $tree = mktree 't/html/hashmap.html';
$tree->hash_map(
	hash      => {people_id => 888, phone => '444-4444', email => 'm@xml.com'},
	to_attr   => 'sid',
	excluding => ['email']
);
isxml $tree, 't/html/hashmap.exp', 'hash_map';
Commit	Line	Data
aa016126 MG	1	#!/usr/bin/perl
	2	use t::lib tests => 1;
	3
	4	my $tree = mktree 't/html/hashmap.html';
	5	$tree->hash_map(
	6	hash => {people_id => 888, phone => '444-4444', email => 'm@xml.com'},
	7	to_attr => 'sid',
	8	excluding => ['email']
	9	);
	10	isxml $tree, 't/html/hashmap.exp', 'hash_map';