diff options
-rw-r--r-- | t/05-mixed.t | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/t/05-mixed.t b/t/05-mixed.t new file mode 100644 index 0000000..b9f1900 --- /dev/null +++ b/t/05-mixed.t @@ -0,0 +1,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 options => {builder => '+LibXML'}, -default => {-prefix=> 'x'}; +use Tree::Template::Declare options => {builder => '+DAG_Node'}, -default => {-prefix=> 'd'}; + +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->serialize(0), + qq{<?xml version="1.0"?>\n<stuff><test:elem1 xmlns:test="http://test/" test:buh="testing" id="1"><test:sub1/></test:elem1><elem2 id="2"/></stuff>\n}, + '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'); |