Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv4251/test
Modified Files: domtest.lisp Log Message: 600/808 domimplementationfeaturecore.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 601/808 domimplementationfeaturexmlversion2.xml -TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. 602/808 domimplementationhasfeature01.xml -TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
Date: Sun Dec 11 19:30:52 2005 Author: dlichteblau
Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.11 cxml/test/domtest.lisp:1.12 --- cxml/test/domtest.lisp:1.11 Sun Dec 4 23:57:31 2005 +++ cxml/test/domtest.lisp Sun Dec 11 19:30:52 2005 @@ -199,7 +199,6 @@ ("equals" (translate-equals element)) ("notEquals" (translate-not-equals element)) ("contentType" (translate-content-type element)) - ("hasFeature" (translate-has-feature element)) ("implementationAttribute" (assert-have-implementation-attribute element)) ("isNull" (translate-is-null element)) ("not" (translate-is-null element)) @@ -403,11 +402,13 @@ (error "oops")))))
(defun translate-has-feature (element) - (with-attributes (|var| |feature| |version|) element - (maybe-setf (%intern |var|) - `(and (runes:rod-equal ,(parse-java-literal |feature|) #"XML") - (or (zerop (length ,(parse-java-literal |version|))) - (runes:rod-equal ,(parse-java-literal |version|) #"1.0")))))) + (with-attributes (|obj| |var| |feature| |version|) element + (if (nullify |obj|) + (translate-member element) + (maybe-setf (%intern |var|) + `(dom:has-feature 'dom-impl::implementation + ,(parse-java-literal |feature|) + ,(parse-java-literal |version|))))))
(defun translate-fail (element) (declare (ignore element))