From 38cca38c46f7613dcd5aff2e11ba6ad6153d0269 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@dechirico.(none)>
Date: Fri, 27 Mar 2009 15:28:02 +0100
Subject: test multiple calls to attribs

---
 t/01-basic.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 't/01-basic.t')

diff --git a/t/01-basic.t b/t/01-basic.t
index fe205e1..c6b1e8a 100644
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -12,6 +12,7 @@ my $tree=tree {
         node {
             name 'coso1';
             attribs name => 'coso_1';
+            attribs other => 'some';
         };
         node {
             name 'coso2';
@@ -19,7 +20,9 @@ my $tree=tree {
     };
 };
 
-diag $_ for @{$tree->draw_ascii_tree()};
 is_deeply($tree->tree_to_lol(),
           [['coso1'],['coso2'],'root'],
           'built the tree');
+is_deeply(($tree->daughters)[0]->attributes,
+          {name => 'coso_1', other => 'some'},
+          'attributes');
-- 
cgit v1.2.3