t/06-code.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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

#!perl 
use Test::Most tests => 2,'die';
use strict;
use warnings;
use Tree::Template::Declare builder => '+DAG_Node';
use Data::Dumper;
 
sub make_item {
    my ($name,$id)=@_;
 
    return detached node {
        name 'item';
        attribs id => $id;
        node {
            name 'description';
            attribs name => $name;
        };
    };
}
 
sub make_list {
    my (@items)=@_;
 
    my @item_nodes=map {make_item(@$_)} @items;
 
    return node {
        name 'list';
        attach_nodes @item_nodes;
    };
}
 
my $tree=tree {
    make_list([gino => 1],
              [pino => 2],
              [rino => 3],
          );
};
 
cmp_deeply($tree->tree_to_lol(),
           [
               [[re(qr{description})],re(qr{item})],
               [[re(qr{description})],re(qr{item})],
               [[re(qr{description})],re(qr{item})],
               re(qr{list})],
           'tree with code');
 
my @attrs;
$tree->walk_down({callback=>sub{
                      push @attrs,$_[0]->attributes;
                      1
                  }});
is_deeply(\@attrs,
          [{},
           {id=>1},{name=>'gino'},
           {id=>2},{name=>'pino'},
           {id=>3},{name=>'rino'},
       ],
          'attributes');