OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

777/808 prefix09.xml

Browse Source 
-TEST FAILED: expected exception NAMESPACE_ERR
This commit is contained in:
dlichteblau
2005-12-11 19:54:56 +00:00
parent ec9718fa64
commit 61d0b07062
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
DOMTEST
View File

@ -812,7 +812,6 @@ No entity resolver registered.
775/808 prefix07.xml 775/808 prefix07.xml
776/808 prefix08.xml 776/808 prefix08.xml
777/808 prefix09.xml 777/808 prefix09.xml
TEST FAILED: expected exception NAMESPACE_ERR
778/808 prefix10.xml 778/808 prefix10.xml
779/808 prefix11.xml 779/808 prefix11.xml
780/808 publicId01.xml 780/808 publicId01.xml
@ -846,4 +845,4 @@ implementationAttribute expandEntityReferences not supported, skipping test
803/808 setNamedItemNS04.xml 803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml 804/808 setNamedItemNS05.xml
805/808 systemId01.xml 805/808 systemId01.xml
4/763 tests failed; 45 tests were skipped 3/763 tests failed; 45 tests were skipped

4
dom/dom-impl.lisp
View File

@ -50,6 +50,10 @@
(dom:namespace-uri node))) (dom:namespace-uri node)))
(setf (slot-value node 'prefix) newval)) (setf (slot-value node 'prefix) newval))
(defmethod (setf dom:prefix) :before (newval (node attribute))
(when (rod= (dom:node-name node) #"xmlns")
(dom-error :NAMESPACE_ERR "must not change xmlns attribute prefix")))
(defmethod (setf dom:prefix) :after (newval (node attribute)) (defmethod (setf dom:prefix) :after (newval (node attribute))
(setf (slot-value node 'name) (setf (slot-value node 'name)
(concatenate 'rod newval #":" (dom:local-name node)))) (concatenate 'rod newval #":" (dom:local-name node))))