diff --git a/DOMTEST b/DOMTEST index f94f17e..061aa1f 100644 --- a/DOMTEST +++ b/DOMTEST @@ -570,20 +570,10 @@ implementationAttribute signed not supported, skipping test 540/808 createDocument06.xml 541/808 createDocument07.xml 542/808 createDocument08.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (NIL). 543/808 createDocumentType01.xml -TEST FAILED: expected exception NAMESPACE_ERR 544/808 createDocumentType02.xml -TEST FAILED: expected exception INVALID_CHARACTER_ERR 545/808 createDocumentType03.xml 546/808 createDocumentType04.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (NIL). 547/808 createElementNS01.xml 548/808 createElementNS02.xml 549/808 createElementNS03.xml @@ -637,10 +627,11 @@ TEST FAILED: There is no applicable method for the generic function 580/808 documentimportnode12.xml 581/808 documentimportnode13.xml 582/808 documentimportnode14.xml -TEST FAILED: There is no applicable method for the generic function - # - when called with arguments - (NIL). +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 584/808 documentimportnode17.xml 585/808 documentimportnode18.xml @@ -661,7 +652,6 @@ implementationAttribute expandEntityReferences not supported, skipping test 597/808 domimplementationcreatedocumenttype01.xml 598/808 domimplementationcreatedocumenttype02.xml 599/808 domimplementationcreatedocumenttype04.xml -TEST FAILED: expected exception INVALID_CHARACTER_ERR 600/808 domimplementationfeaturecore.xml TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 601/808 domimplementationfeaturexmlversion2.xml @@ -930,4 +920,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR 803/808 setNamedItemNS04.xml 804/808 setNamedItemNS05.xml 805/808 systemId01.xml -43/763 tests failed; 45 tests were skipped \ No newline at end of file +38/763 tests failed; 45 tests were skipped \ No newline at end of file diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp index ca96ba8..d8704b1 100644 --- a/dom/dom-impl.lisp +++ b/dom/dom-impl.lisp @@ -219,6 +219,7 @@ (defmethod dom:create-document-type ((factory (eql 'implementation)) name publicid systemid) + (safe-split-qname name #"") (make-instance 'dom-impl::document-type :name name :notations (make-instance 'dom-impl::named-node-map diff --git a/test/domtest.lisp b/test/domtest.lisp index d5d7d00..386f425 100644 --- a/test/domtest.lisp +++ b/test/domtest.lisp @@ -336,6 +336,7 @@ ("fail" (translate-fail element)) ("hasFeature" (translate-has-feature element)) ("if" (translate-if element)) + ("implementation" (translate-implementation element)) ("increment" (translate-unary-assignment '+ element)) ("decrement" (translate-unary-assignment '- element)) ("length" (translate-length element)) @@ -366,6 +367,10 @@ (maybe-setf (%intern |var|) `(load-file ,|href| ,(parse-java-literal |willBeModified|))))) +(defun translate-implementation (elt) + (with-attributes (|var|) elt + (maybe-setf (%intern |var|) `'dom-impl::implementation))) + (defun translate-length (load) ;; XXX Soweit ich sehe unterscheiden die Tests nicht zwischen ;; der Laenge von DOMString und der length()-Methode der uebrigen