Kawa/testsuite/xml-test.scm

(test-begin "xml")

(require "test-utils.scm")

(xtest #<a id="mine"/>
         '($xml-element$ () ($resolve-qname$ a)
                 ($xml-attribute$ 'id "mine"))
         &{<a id="mine"></a>})

(xtest #<x:a xmlns:x="X" x:id="mine">text</x:a>
         '($xml-element$ ((x "X")) ($resolve-qname$ a x)
                         ($xml-attribute$ ($resolve-qname$ id x) "mine")
                         "text")
         &{<x:a xmlns:x="X" x:id="mine">text</x:a>})

(xtest #<a xmlns="X" id="mine"/>
         '($xml-element$ ((|| "X")) ($resolve-qname$ a)
                         ($xml-attribute$ 'id "mine"))
         &{<a xmlns="X" id="mine" />})

(let ((xid 'id)
      (xa 'a)
      (xine "ine")
      (xtex "tex"))
(xtest #<[xa] [xid]="m&[xine]">&[xtex]t</>
         '($xml-element$ () xa
                 ($xml-attribute$ xid "m" $<<$ xine $>>$)
                 $<<$ xtex $>>$ "t")
         &{<a id="mine">text</a>}))

;; Computed attribute value.
(let ((idatr ($xml-attribute$ 'id "myId")))
  (xtest #<ab [idatr] x="name"/>
           '($xml-element$ () ($resolve-qname$ ab)
                           idatr ($xml-attribute$ 'x "name"))
           &{<ab id="myId" x="name"></ab>}))

(let ((val1 "VAL1"))
  (xtest #<ab at1=[val1] at2=[val1 "/" val1] at3=(string-downcase val1)/>
         '($xml-element$ () ($resolve-qname$ ab)
                         ($xml-attribute$ (quote at1) val1)
                         ($xml-attribute$ (quote at2) val1 "/" val1)
                         ($xml-attribute$ (quote at3) (string-downcase val1)))
         &{<ab at1="VAL1" at2="VAL1/VAL1" at3="val1"></ab>}))

;; Test &#|comment|#
(xtest #<ab id="n&#|comment1|#ame">12&#|comment2|#9</>
       '($xml-element$ () ($resolve-qname$ ab)
                       ($xml-attribute$ (quote id) "name") "129")
       &{<ab id="name">129</ab>})

;; Test line-continuation &- in both attribute and element content.
(xtest #<em id="na&-
me">abc&-
  def</em>
       '($xml-element$ () ($resolve-qname$ em)
                       ($xml-attribute$ (quote id) "name") "abc  def")
       &{<em id="name">abc  def</em>})

(xtest #<em>
  &|abc
  &| def</em>
       '($xml-element$ () ($resolve-qname$ em) "abc\n def")
       &{<em>abc&newline; def</em>})

(test-end)