[perl-xml-cvs] CVS: xml-simple/t 8_Namespaces.t,1.2,1.3

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

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

Modified Files:
	8_Namespaces.t 
Log Message:
- fixed test which assumed hash key order

Index: 8_Namespaces.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/8_Namespaces.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 8_Namespaces.t	14 Feb 2002 21:34:34 -0000	1.2
+++ 8_Namespaces.t	13 Oct 2002 03:59:24 -0000	1.3
@@ -26,6 +26,7 @@
 
 print "1..7\n";
 
+$| = 1;
 my $t = 1;
 
 ##############################################################################
@@ -202,8 +203,8 @@
 $xml = XMLout($opt);
 ok(3, $xml =~ m{
   ^\s*<opt
-  \s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/"
-  \s+{http://www.perl.com/}attr="value"
+  (\s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/"
+  |\s+{http://www.perl.com/}attr="value"){2}
   \s*>
   \s*<{http://www.perl.com/}element\s*>data</{http://www.perl.com/}element\s*>
   \s*</opt>
@@ -216,8 +217,8 @@
 $xml = XMLout($opt, nsexpand => 1);
 ok(4, $xml =~ m{
   ^\s*<opt
-  \s+xmlns:perl="http://www.perl.com/"
-  \s+perl:attr="value"
+  (\s+xmlns:perl="http://www.perl.com/"
+  |\s+perl:attr="value"){2}
   \s*>
   \s*<perl:element\s*>data</perl:element\s*>
   \s*</opt>
@@ -275,16 +276,20 @@
 };
 
 $xml = XMLout($opt, nsexpand => 1);
+my $prefix = '';
+if($xml =~ m{<list\s+xmlns:(\w+)="http://www.phantom.com/"\s*>}) {
+  $prefix = $1;
+}
 ok(7, $xml =~ m{
   ^\s*<opt
   \s+xmlns="http://www.orgsoc.org/"
   \s*>
-  \s*<list\s+xmlns:(\w+)="http://www.phantom.com/"\s*>
-  \s*<member>Tom</member>
-  \s*<member>Dick</member>
-  \s*<member>Larry</member>
-  \s*<\1:director>Bill</\1:director>
-  \s*<\1:director>Ben</\1:director>
+  \s*<list\s+xmlns:${prefix}="http://www.phantom.com/"\s*>
+  (\s*<member>Tom</member>
+   \s*<member>Dick</member>
+   \s*<member>Larry</member>
+  |\s*<${prefix}:director>Bill</${prefix}:director>
+   \s*<${prefix}:director>Ben</${prefix}:director>){2}
   \s*</list>
   \s*</opt>
   \s*$