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

755/808 nodenormalize01.xml

Browse Source 
-TEST FAILED: NOT_SUPPORTED_ERR (9):
-No entity resolver registered.
This commit is contained in:
dlichteblau
2005-12-11 20:13:04 +00:00
parent ef9c137e52
commit 7be80057c5
2 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
DOMTEST
View File

@ -786,8 +786,6 @@ implementationAttribute expandEntityReferences not supported, skipping test
753/808 nodeissupported04.xml 753/808 nodeissupported04.xml
754/808 nodeissupported05.xml 754/808 nodeissupported05.xml
755/808 nodenormalize01.xml 755/808 nodenormalize01.xml
TEST FAILED: NOT_SUPPORTED_ERR (9):
No entity resolver registered.
756/808 nodesetprefix01.xml 756/808 nodesetprefix01.xml
757/808 nodesetprefix02.xml 757/808 nodesetprefix02.xml
758/808 nodesetprefix03.xml 758/808 nodesetprefix03.xml
@ -839,4 +837,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
1/763 tests failed; 45 tests were skipped 0/763 tests failed; 45 tests were skipped

5
dom/dom-impl.lisp
View File

@ -1193,11 +1193,10 @@
(let* ((owner (dom:owner-document instance)) (let* ((owner (dom:owner-document instance))
(handler (dom:make-dom-builder)) (handler (dom:make-dom-builder))
(resolver (slot-value owner 'entity-resolver))) (resolver (slot-value owner 'entity-resolver)))
(unless resolver (when resolver
(dom-error :NOT_SUPPORTED_ERR "No entity resolver registered."))
(setf (document handler) owner) (setf (document handler) owner)
(push instance (element-stack handler)) (push instance (element-stack handler))
(funcall resolver (dom:name instance) handler)) (funcall resolver (dom:name instance) handler)))
(labels ((walk (n) (labels ((walk (n)
(setf (slot-value n 'read-only-p) t) (setf (slot-value n 'read-only-p) t)
(when (dom:element-p n) (when (dom:element-p n)