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

694/808 internalSubset01.xml

Browse Source 
-TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
This commit is contained in:
dlichteblau
2005-12-11 19:35:05 +00:00
parent 58c3cc32c8
commit e653fd37a3
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
DOMTEST
View File

@ -727,7 +727,6 @@ not implemented
692/808 importNode16.xml 692/808 importNode16.xml
693/808 importNode17.xml 693/808 importNode17.xml
694/808 internalSubset01.xml 694/808 internalSubset01.xml
TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
695/808 isSupported01.xml 695/808 isSupported01.xml
696/808 isSupported02.xml 696/808 isSupported02.xml
697/808 isSupported04.xml 697/808 isSupported04.xml
@ -859,4 +858,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
8/763 tests failed; 45 tests were skipped 7/763 tests failed; 45 tests were skipped

6
dom/dom-impl.lisp
View File

@ -1150,7 +1150,11 @@
(defmethod dom:internal-subset ((node document-type)) (defmethod dom:internal-subset ((node document-type))
;; FIXME: encoding ist falsch, anderen sink nehmen! ;; FIXME: encoding ist falsch, anderen sink nehmen!
(if (slot-boundp node 'internal-subset) (if (and (slot-boundp node 'internal-subset)
;; die damen und herren von der test suite sind wohl der meinung,
;; dass ein leeres internal subset nicht vorhanden ist und
;; wir daher nil liefern sollen. bittesehr!
(internal-subset node))
(with-output-to-string (stream) (with-output-to-string (stream)
(let ((sink (cxml:make-character-stream-sink stream))) (let ((sink (cxml:make-character-stream-sink stream)))
(dolist (def (internal-subset node)) (dolist (def (internal-subset node))