Commit e24b639b authored by david's avatar david

Revision: cxml--devel--1.0--patch-79

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Fri Feb  6 23:49:24 CET 2004
Standard-date: 2004-02-06 22:49:24 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-79
Summary: ignore element order in <equals>

ignore element order in <equals>
parent 678559ca
......@@ -186,9 +186,16 @@
(defun translate-equals (element)
(with-attributes (|actual| |expected| |ignoreCase|) element
`(,(if (parse-java-literal |ignoreCase|) 'string-equal 'equal)
,(%intern actual)
,(parse-java-literal expected))))
`(let ((a ,(%intern actual))
(b ,(parse-java-literal expected))
(test ',(if (parse-java-literal |ignoreCase|) 'string-equal 'equal)))
(when (typep a 'dom-impl::named-node-map)
(setf a (dom:items a)))
(when (typep b 'dom-impl::named-node-map)
(setf b (dom:items b)))
(if (and (listp a) (listp b))
(null (set-exclusive-or a b :test test))
(funcall test a b)))))
(defun translate-same (element)
(with-attributes (|actual| |expected|) element
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment