]>
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'; |