t/01-basic.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!perl 
use Test::Most tests => 2,'die';
use strict;
use warnings;
use Tree::Template::Declare builder => '+DAG_Node';
 
my $tree=tree {
    node {
        name 'root';
        attribs name => 'none';
        node {
            name 'coso1';
            attribs name => 'coso_1';
            attribs other => 'some';
        };
        node {
            name 'coso2';
        };
    };
};
 
is_deeply($tree->tree_to_lol(),
          [['coso1'],['coso2'],'root'],
          'built the tree');
is_deeply(($tree->daughters)[0]->attributes,
          {name => 'coso_1', other => 'some'},
          'attributes');