unroll_select improvements

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

diff --git a/t/same_as.t b/t/same_as.t
index 1fc78bae38e7fe4c304f491b5c9ab8da1ebb496a..285f64c6fa272fa1d018561e6a45568c4c727bae 100644 (file)
--- a/t/same_as.t
+++ b/t/same_as.t
@@ -22,11 +22,16 @@ sub tage {
 
   my $tree = HTML::TreeBuilder->new_from_file("$root.initial");
 
-  warn "TREE: $tree" . $tree->as_HTML;
+  #warn "TREE: $tree" . $tree->as_HTML;
 
-  my %data = (people_id => 888, phone => '444-4444', email => 'dont-you-dare-render@xml.com');
+  my %data = (people_id => 888, phone => '444-4444', email => 'm@xml.com');
 
-  $tree->data_map(href => \%data, with_attr => 'sid', excluding => ['email']);
+  $tree->hash_map
+    (hash    => \%data, 
+     to_attr => 'sid', 
+     excluding => [ 'email' ],
+     debug   => 1
+    );
 
   my $generated_html = ptree($tree, "$root.gen");