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

600/808 domimplementationfeaturecore.xml

Browse Source 
-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.
This commit is contained in:
dlichteblau
2005-12-11 18:30:45 +00:00
parent 19bed499dc
commit 3df72f6f10
2 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/domtest.lisp
View File

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