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*$
|
