[perl-xml-cvs] CVS: xml-simple/t 2_XMLout.t,1.8,1.9

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

Update of /cvsroot/perl-xml/xml-simple/t
In directory sc8-pr-cvs1:/tmp/cvs-serv31499/t

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

Index: 2_XMLout.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/2_XMLout.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- 2_XMLout.t	18 May 2003 08:42:30 -0000	1.8
+++ 2_XMLout.t	9 Sep 2003 09:35:52 -0000	1.9
@@ -326,8 +326,11 @@
 ok(defined($_), 'repetitive (non-circular) data structure not fatal');
 like($_, qr{^
 <opt>
-  \s*<a\s+alpha="1"\s*/>
-  \s*<b\s+alpha="1"\s*/>
+  (
+    \s*<a\s+alpha="1"\s*/>
+  |
+    \s*<b\s+alpha="1"\s*/>
+  ){2}
 \s*</opt>
 }xs, 'and encodes as expected');