t/05-mixed.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

#!perl 
use Test::Most 'die';
BEGIN {
eval 'use XML::LibXML';
plan skip_all => 'XML::LibXML needed for this test' if $@;
}
plan tests => 2;
use strict;
use warnings;
use Tree::Template::Declare -prefix=> 'x', builder => '+LibXML';
use Tree::Template::Declare -prefix=> 'd', builder => '+DAG_Node';
 
use Data::Dumper;
 
xxmlns test => 'http://test/';
 
my $xmltree= xtree {
    xnode {
        xname 'stuff';
        xnode {
            xname 'test:elem1';
            xattribs id => 1, 'test:buh' => 'testing';
            xnode {
                xname 'test:sub1';
            }
        };
        xnode {
            xname 'elem2';
            xattribs id => 2;
        };
    };
};
 
is($xmltree->toStringC14N(0),
   qq{<stuff><test:elem1 xmlns:test="http://test/" id="1" test:buh="testing"><test:sub1></test:sub1></test:elem1><elem2 id="2"></elem2></stuff>},
   'XML document'
);
 
my $dagtree=dtree {
    dnode {
        dname 'root';
        dattribs name => 'none';
        dnode {
            dname 'coso1';
            dattribs name => 'coso_1';
        };
        dnode {
            dname 'coso2';
        };
    };
};
 
is_deeply($dagtree->tree_to_lol(),
          [['coso1'],['coso2'],'root'],
          'DAG_Node tree');