[perl-xml-cvs] CVS: xml-simple/t 2_XMLout.t,1.12,1.13

[Grant M. <gr...@us...>]

Update of /cvsroot/perl-xml/xml-simple/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13925/t

Modified Files:
	2_XMLout.t 
Log Message:
- fix GroupTags/XMLout corrupting 

Index: 2_XMLout.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/2_XMLout.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- 2_XMLout.t	5 Apr 2004 09:12:51 -0000	1.12
+++ 2_XMLout.t	17 Nov 2004 08:35:12 -0000	1.13
@@ -7,7 +7,7 @@
 
 $^W = 1;
 
-plan tests => 190;
+plan tests => 193;
 
 
 ##############################################################################
@@ -844,6 +844,11 @@
 ok(s{\s*<dirs>LIST</dirs>\s*}{ELEM}s,  'group OK');
 like($_, qr{^<(\w+)\s*>ELEMELEMELEM</\1>$}, 'document OK');
 
+is_deeply($ref, {
+  prefix => 'before',
+  dirs   => [ '/usr/bin', '/usr/local/bin' ],
+  suffix => 'after',
+}, 'original ref is not messed with');
 
 # Try again with multiple groupings
 
@@ -957,6 +962,34 @@
 'NoIndent worked ok');
 
 
+# Check 'NoIndent' works with KeyAttr
+
+$ref = {
+  person => {
+    bob  => { age => 25 },
+    kate => { age => 22 },
+  },
+};
+
+# Expect:
+#
+# <opt><person name="bob" age="25"><person name="kate" age="22"></opt>
+#
+
+$_ = XMLout($ref, NoIndent => 1, KeyAttr => {person => 'name'});
+
+is_deeply(XMLin($_), $ref, 'parses ok');
+like($_, qr{
+  <opt>
+    (
+    <person(\s+name="bob"|\s+age="25"){2}\s*/>
+    |<person(\s+name="kate"|\s+age="22"){2}\s*/>
+    ){2}
+  </opt>
+}sx,
+'NoIndent worked ok with KeyAttr');
+
+
 # Try the 'AttrIndent' option (assume NoSort defaults to off)
 
 $ref = {