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

MORE WRONG_DOCUMENT_ERR

Browse Source
This commit is contained in:
dlichteblau
2005-12-04 22:25:34 +00:00
parent 31b32fc50e
commit 3dce1bffe5
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
DOMTEST
View File

@ -565,9 +565,7 @@ implementationAttribute signed not supported, skipping test
535/808 createDocument01.xml 535/808 createDocument01.xml
536/808 createDocument02.xml 536/808 createDocument02.xml
537/808 createDocument03.xml 537/808 createDocument03.xml
TEST FAILED: expected exception WRONG_DOCUMENT_ERR
538/808 createDocument04.xml 538/808 createDocument04.xml
TEST FAILED: expected exception WRONG_DOCUMENT_ERR
539/808 createDocument05.xml 539/808 createDocument05.xml
540/808 createDocument06.xml 540/808 createDocument06.xml
541/808 createDocument07.xml 541/808 createDocument07.xml
@ -932,4 +930,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
45/763 tests failed; 45 tests were skipped 43/763 tests failed; 45 tests were skipped

2
dom/dom-impl.lisp
View File

@ -239,6 +239,8 @@
(unless (typep doctype 'document-type) (unless (typep doctype 'document-type)
(dom-error :WRONG_DOCUMENT_ERR (dom-error :WRONG_DOCUMENT_ERR
"doctype was created by a different dom implementation")) "doctype was created by a different dom implementation"))
(when (dom:owner-document doctype)
(dom-error :WRONG_DOCUMENT_ERR "doctype already in use"))
(setf (slot-value doctype 'dom-impl::owner) document (setf (slot-value doctype 'dom-impl::owner) document
(slot-value (dom:notations doctype) 'dom-impl::owner) document (slot-value (dom:notations doctype) 'dom-impl::owner) document
(slot-value (dom:entities doctype) 'dom-impl::owner) document)) (slot-value (dom:entities doctype) 'dom-impl::owner) document))