test multiple imports with separate engines

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');