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

dom murmel dom

Browse Source
This commit is contained in:
dlichteblau
2005-12-04 22:57:30 +00:00
parent 3dce1bffe5
commit 1b31540480
3 changed files with 12 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
DOMTEST
View File

@ -570,20 +570,10 @@ implementationAttribute signed not supported, skipping test
540/808 createDocument06.xml 540/808 createDocument06.xml
541/808 createDocument07.xml 541/808 createDocument07.xml
542/808 createDocument08.xml 542/808 createDocument08.xml
TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)>
when called with arguments
(NIL).
543/808 createDocumentType01.xml 543/808 createDocumentType01.xml
TEST FAILED: expected exception NAMESPACE_ERR
544/808 createDocumentType02.xml 544/808 createDocumentType02.xml
TEST FAILED: expected exception INVALID_CHARACTER_ERR
545/808 createDocumentType03.xml 545/808 createDocumentType03.xml
546/808 createDocumentType04.xml 546/808 createDocumentType04.xml
TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)>
when called with arguments
(NIL).
547/808 createElementNS01.xml 547/808 createElementNS01.xml
548/808 createElementNS02.xml 548/808 createElementNS02.xml
549/808 createElementNS03.xml 549/808 createElementNS03.xml
@ -637,10 +627,11 @@ TEST FAILED: There is no applicable method for the generic function
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: There is no applicable method for the generic function TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
#<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)> #(104 116 116 112 58 47 47 119 119
when called with arguments 119 46 110 105 115 116 46 103
(NIL). 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
@ -661,7 +652,6 @@ implementationAttribute expandEntityReferences not supported, skipping test
597/808 domimplementationcreatedocumenttype01.xml 597/808 domimplementationcreatedocumenttype01.xml
598/808 domimplementationcreatedocumenttype02.xml 598/808 domimplementationcreatedocumenttype02.xml
599/808 domimplementationcreatedocumenttype04.xml 599/808 domimplementationcreatedocumenttype04.xml
TEST FAILED: expected exception INVALID_CHARACTER_ERR
600/808 domimplementationfeaturecore.xml 600/808 domimplementationfeaturecore.xml
TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
601/808 domimplementationfeaturexmlversion2.xml 601/808 domimplementationfeaturexmlversion2.xml
@ -930,4 +920,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
43/763 tests failed; 45 tests were skipped 38/763 tests failed; 45 tests were skipped

1
dom/dom-impl.lisp
View File

@ -219,6 +219,7 @@
(defmethod dom:create-document-type (defmethod dom:create-document-type
((factory (eql 'implementation)) name publicid systemid) ((factory (eql 'implementation)) name publicid systemid)
(safe-split-qname name #"")
(make-instance 'dom-impl::document-type (make-instance 'dom-impl::document-type
:name name :name name
:notations (make-instance 'dom-impl::named-node-map :notations (make-instance 'dom-impl::named-node-map

5
test/domtest.lisp
View File

@ -336,6 +336,7 @@
("fail" (translate-fail element)) ("fail" (translate-fail element))
("hasFeature" (translate-has-feature element)) ("hasFeature" (translate-has-feature element))
("if" (translate-if element)) ("if" (translate-if element))
("implementation" (translate-implementation element))
("increment" (translate-unary-assignment '+ element)) ("increment" (translate-unary-assignment '+ element))
("decrement" (translate-unary-assignment '- element)) ("decrement" (translate-unary-assignment '- element))
("length" (translate-length element)) ("length" (translate-length element))
@ -366,6 +367,10 @@
(maybe-setf (%intern |var|) (maybe-setf (%intern |var|)
`(load-file ,|href| ,(parse-java-literal |willBeModified|))))) `(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) (defun translate-length (load)
;; XXX Soweit ich sehe unterscheiden die Tests nicht zwischen ;; XXX Soweit ich sehe unterscheiden die Tests nicht zwischen
;; der Laenge von DOMString und der length()-Methode der uebrigen ;; der Laenge von DOMString und der length()-Methode der uebrigen