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

582/808 documentimportnode14.xml

Browse Source 
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
-                                             #(104 116 116 112 58 47 47 119 119
-                                               119 46 110 105 115 116 46 103
-                                               111 118)
-                                             'DOMTEST::%EQUAL) failed.
This commit is contained in:
dlichteblau
2005-12-11 18:13:00 +00:00
parent 31f4f22ede
commit c045b19e3f
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
DOMTEST
View File

@ -610,11 +610,6 @@ implementationAttribute signed not supported, skipping test
580/808 documentimportnode12.xml 580/808 documentimportnode12.xml
581/808 documentimportnode13.xml 581/808 documentimportnode13.xml
582/808 documentimportnode14.xml 582/808 documentimportnode14.xml
TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
#(104 116 116 112 58 47 47 119 119
119 46 110 105 115 116 46 103
111 118)
'DOMTEST::%EQUAL) failed.
583/808 documentimportnode15.xml 583/808 documentimportnode15.xml
584/808 documentimportnode17.xml 584/808 documentimportnode17.xml
585/808 documentimportnode18.xml 585/808 documentimportnode18.xml
@ -883,4 +878,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
803/808 setNamedItemNS04.xml 803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml 804/808 setNamedItemNS05.xml
805/808 systemId01.xml 805/808 systemId01.xml
22/763 tests failed; 45 tests were skipped 21/763 tests failed; 45 tests were skipped

9
dom/dom-impl.lisp
View File

@ -1280,7 +1280,14 @@
(setf (slot-value attributes 'element) result) (setf (slot-value attributes 'element) result)
(dolist (attribute (dom:items (dom:attributes node))) (dolist (attribute (dom:items (dom:attributes node)))
(when (or (dom:specified attribute) *clone-not-import*) (when (or (dom:specified attribute) *clone-not-import*)
(dom:set-attribute result (dom:name attribute) (dom:value attribute)))) (if (dom:namespace-uri attribute)
(dom:set-attribute-ns result
(dom:namespace-uri attribute)
(dom:local-name attribute)
(dom:value attribute))
(dom:set-attribute result
(dom:name attribute)
(dom:value attribute)))))
result)) result))
(defmethod dom:import-node ((document document) (node entity) deep) (defmethod dom:import-node ((document document) (node entity) deep)