1 Index: test/domtest.lisp
2 ===================================================================
3 RCS file: /project/cxml/cvsroot/cxml/test/domtest.lisp,v
4 retrieving revision 1.13
5 diff -u -r1.13 domtest.lisp
6 --- test/domtest.lisp 27 Dec 2005 00:21:37 -0000 1.13
7 +++ test/domtest.lisp 27 Dec 2005 00:46:00 -0000
9 ((digit-char-p (runes:rune-char (elt str 0)))
10 (parse-integer (runes:rod-string str)))
11 ((runes:rune= (elt str 0) #.(runes:char-rune #\"))
12 - (let ((v (make-array 1 :fill-pointer 0 :adjustable t)))
13 - (for* ((i = 1 :then (1+ i))
15 - :until (runes:rune= c #.(runes:char-rune #\")))
16 - (if (runes:rune= c #.(runes:char-rune #\\))
23 - (#/n (vector-push-extend #/newline v (length v)))
24 - ((#/\\ #/\") (vector-push-extend #/\\ v (length v)))))
25 - (vector-push-extend c v (length v))))
26 - (coerce v 'runes::simple-rod)))
28 + (let ((v (make-array 1 :fill-pointer 0 :adjustable t)))
29 + (for* ((i = 1 :then (1+ i))
31 + :until (runes:rune= c #.(runes:char-rune #\")))
32 + (if (runes:rune= c #.(runes:char-rune #\\))
39 + (#/n (vector-push-extend #/newline v (length v)))
40 + ((#/\\ #/\") (vector-push-extend #/\\ v (length v)))))
41 + (vector-push-extend c v (length v))))
42 + (coerce v 'runes::simple-rod))))
48 (defun translate-implementation (elt)
49 (with-attributes (|var|) elt
50 - (maybe-setf (%intern |var|) `'rune-dom:implementation)))
51 + (maybe-setf (%intern |var|) `'utf8-dom:implementation)))
53 (defun translate-length (load)
54 ;; XXX Soweit ich sehe unterscheiden die Tests nicht zwischen
57 (translate-member element)
58 (maybe-setf (%intern |var|)
59 - `(dom:has-feature 'rune-dom:implementation
60 + `(dom:has-feature 'utf8-dom:implementation
61 ,(parse-java-literal |feature|)
62 ,(parse-java-literal |version|))))))
66 `(block assert-domexception
68 - ((rune-dom::dom-exception
69 + ((utf8-dom::dom-exception
71 - (when (eq (rune-dom::dom-exception-key c)
72 + (when (eq (utf8-dom::dom-exception-key c)
73 ,(intern (tag-name c) :keyword))
74 (return-from assert-domexception)))))
80 - `(when (eq (rune-dom::dom-exception-key c)
81 + `(when (eq (utf8-dom::dom-exception-key c)
82 ,(intern (runes:rod-string (dom:get-attribute exception "code"))
84 ,@(translate-body exception)
86 (defun translate-try (element)
89 - ((rune-dom::dom-exception
90 + ((utf8-dom::dom-exception
92 (do-child-elements (c element :name "catch") (return c))
95 (setf name (runes:rod-string name))
97 (make-pathname :name name :type "xml" :defaults *files-directory*)
98 - (rune-dom:make-dom-builder)))
99 + (cxml:make-recoder (utf8-dom:make-dom-builder) 'cxml:rod-to-utf8-string)))
101 (defparameter *bad-tests*
102 '("hc_elementnormalize2.xml"