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

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

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' ],