keine version == egal

This commit is contained in:
dlichteblau
2005-12-10 20:06:02 +00:00
parent e162730695
commit 31f4f22ede
2 changed files with 3 additions and 7 deletions

View File

@ -750,15 +750,12 @@ TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
698/808 isSupported05.xml
699/808 isSupported06.xml
700/808 isSupported07.xml
TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
701/808 isSupported09.xml
702/808 isSupported10.xml
703/808 isSupported11.xml
704/808 isSupported12.xml
705/808 isSupported13.xml
TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
706/808 isSupported14.xml
TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
707/808 localName01.xml
708/808 localName02.xml
709/808 localName03.xml
@ -814,9 +811,7 @@ TEST FAILED: There is no applicable method for the generic function
748/808 nodehasattributes03.xml
749/808 nodehasattributes04.xml
750/808 nodeissupported01.xml
TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
751/808 nodeissupported02.xml
TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
752/808 nodeissupported03.xml
753/808 nodeissupported04.xml
754/808 nodeissupported05.xml
@ -888,4 +883,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml
805/808 systemId01.xml
27/763 tests failed; 45 tests were skipped
22/763 tests failed; 45 tests were skipped

View File

@ -214,7 +214,8 @@
(defmethod dom:has-feature ((factory (eql 'implementation)) feature version)
(and (or (string-equal (rod-string feature) "xml")
(string-equal (rod-string feature) "core"))
(or (string-equal (rod-string version) "1.0")
(or (zerop (length version))
(string-equal (rod-string version) "1.0")
(string-equal (rod-string version) "2.0"))))
(defun %create-document-type (name publicid systemid)