731/808 namednodemapsetnameditemns06.xml

-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 732/808 namednodemapsetnameditemns07.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 733/808 namednodemapsetnameditemns08.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 800/808 setNamedItemNS01.xml
-TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
This commit is contained in:
dlichteblau
2005-12-11 18:36:13 +00:00
parent 3df72f6f10
commit 80558a9122
2 changed files with 10 additions and 12 deletions

View File

@ -651,7 +651,6 @@ implementationAttribute expandEntityReferences not supported, skipping test
619/808 elementsetattributenodens01.xml
620/808 elementsetattributenodens02.xml
621/808 elementsetattributenodens03.xml
TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
622/808 elementsetattributenodens04.xml
623/808 elementsetattributenodens05.xml
624/808 elementsetattributenodens06.xml
@ -776,11 +775,8 @@ TEST FAILED: There is no applicable method for the generic function
729/808 namednodemapsetnameditemns04.xml
730/808 namednodemapsetnameditemns05.xml
731/808 namednodemapsetnameditemns06.xml
TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
732/808 namednodemapsetnameditemns07.xml
TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
733/808 namednodemapsetnameditemns08.xml
TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
734/808 namednodemapsetnameditemns09.xml
735/808 namednodemapsetnameditemns10.xml
736/808 namednodemapsetnameditemns11.xml
@ -868,10 +864,9 @@ implementationAttribute expandEntityReferences not supported, skipping test
798/808 setAttributeNodeNS04.xml
799/808 setAttributeNodeNS05.xml
800/808 setNamedItemNS01.xml
TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
801/808 setNamedItemNS02.xml
802/808 setNamedItemNS03.xml
803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml
805/808 systemId01.xml
17/763 tests failed; 45 tests were skipped
12/763 tests failed; 45 tests were skipped

View File

@ -104,12 +104,15 @@
(push anode anodes)))
(setf (slot-value element 'dom-impl::parent) parent)
(fast-push element (slot-value parent 'dom-impl::children))
(setf (slot-value element 'dom-impl::attributes)
(let ((map
(make-instance 'attribute-node-map
:items anodes
:element-type :attribute
:element element
:owner document))
:owner document)))
(setf (slot-value element 'dom-impl::attributes) map)
(dolist (anode anodes)
(setf (slot-value anode 'map) map)))
(push element element-stack))))
(defmethod sax:end-element ((handler dom-builder) namespace-uri local-name qname)