Update of /cvsroot/perl-xml/xml-simple/t
In directory usw-pr-cvs1:/tmp/cvs-serv32363/t
Modified Files:
8_Namespaces.t
Log Message:
- fixed broken tests for default namespace declarations
Index: 8_Namespaces.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/8_Namespaces.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 8_Namespaces.t 5 Feb 2002 22:13:12 -0000 1.1
+++ 8_Namespaces.t 14 Feb 2002 21:34:34 -0000 1.2
@@ -237,7 +237,7 @@
);
$expected = {
- '{http://www.w3.org/2000/xmlns/}' => 'http://www.orgsoc.org/',
+ 'xmlns' => 'http://www.orgsoc.org/',
'{http://www.orgsoc.org/}list' => {
'{http://www.orgsoc.org/}member' => [ 'Tom', 'Dick', 'Larry' ]
}
@@ -267,7 +267,7 @@
# Check that the autogeneration of namespaces works as we expect
$opt = {
- '{http://www.w3.org/2000/xmlns/}' => 'http://www.orgsoc.org/',
+ 'xmlns' => 'http://www.orgsoc.org/',
'{http://www.orgsoc.org/}list' => {
'{http://www.orgsoc.org/}member' => [ 'Tom', 'Dick', 'Larry' ],
'{http://www.phantom.com/}director' => [ 'Bill', 'Ben' ],
|
