[perl-xml-cvs] CVS: xml-simple/t 2_XMLout.t,1.10,1.11

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

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

Modified Files:
	2_XMLout.t 
Log Message:
- fixed test with hash ordering assumption

Index: 2_XMLout.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/2_XMLout.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- 2_XMLout.t	29 Feb 2004 09:49:18 -0000	1.10
+++ 2_XMLout.t	2 Mar 2004 08:17:45 -0000	1.11
@@ -1056,18 +1056,23 @@
   skip "Tie::IxHash not installed", 1 if $@;
 
   my(%hash1, %hash2);
-  tie %hash1, 'Tie::IxHash', Jan => 1, Feb => 2, Mar => 3, Apr => 4;
-  tie %hash2, 'Tie::IxHash', X => { b => 2 }, A => { c => 3 }, Z => { a => 1 };
+  tie %hash1, 'Tie::IxHash', Jan => 1, Feb => 2, Mar => 3, Apr => 4, May => 5;
+  tie %hash2, 'Tie::IxHash', X => { b => 2 }, A => { c => 3 }, Z => { a => 1 },
+                             M => { f => 6 }, K => { e => 4 }, O => { d => 5 };
   $hash1{func} = \%hash2;
 
   $_ = XMLout(\%hash1, NoSort => 1, KeyAttr => {func => 'name'});
 
-  is($_, qq(<opt Jan="1" Feb="2" Mar="3" Apr="4">\n) .
-         qq(  <func b="2" name="X" />\n) .
-         qq(  <func c="3" name="A" />\n) .
-         qq(  <func a="1" name="Z" />\n) .
-         qq(</opt>\n),
-  'Suppressing sort worked');
+  like($_, qr{
+    ^<opt\sJan="1"\sFeb="2"\sMar="3"\sApr="4"\sMay="5">\s+
+      <func(\sb="2"|\sname="X"){2}\s/>\s+
+      <func(\sc="3"|\sname="A"){2}\s/>\s+
+      <func(\sa="1"|\sname="Z"){2}\s/>\s+
+      <func(\sf="6"|\sname="M"){2}\s/>\s+
+      <func(\se="4"|\sname="K"){2}\s/>\s+
+      <func(\sd="5"|\sname="O"){2}\s/>\s+
+    </opt>\s*$
+  }sx, 'Suppressing sort worked');
 
 }