Refactor tests (first pass)

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