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

5
DOMTEST
View File

@ -630,11 +630,8 @@ implementationAttribute expandEntityReferences not supported, skipping test
598/808 domimplementationcreatedocumenttype02.xml
599/808 domimplementationcreatedocumenttype04.xml
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.
603/808 domimplementationhasfeature02.xml
604/808 elementgetattributenodens01.xml
605/808 elementgetattributenodens02.xml
@ -877,4 +874,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
803/808 setNamedItemNS04.xml
804/808 setNamedItemNS05.xml
805/808 systemId01.xml
20/763 tests failed; 45 tests were skipped
17/763 tests failed; 45 tests were skipped

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