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