[cxml-cvs] CVS update: cxml/test/domtest.lisp

[David Lichteblau]

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))