[r2003-06-29 20:29:47 by cvscast] Test pretty printing of XML documents with namespaces

Original author: cvscast
Date: 2003-06-29 20:29:48+00:00

tests/ns.cd

+let doc = load_xml ['tests/ns.xml'];;
+
+print (print_xml doc);;
+
+print "\n";;
+
+namespace A = "blabla" in
+ print (print_xml doc);;
+
+print "\n";;
+
+namespace A = "blablo" in
+ print (print_xml doc);;
+
+print "\n";;
+
+namespace C = "blablo" in
+namespace B = "blabla" in
+ print (print_xml doc);;
+
+print "\n";;

tests/ns.xml

+<a x="1" p:y="2" xmlns="blablo" xmlns:p="blabla">
+ <b/>
+</a>