diff options
Diffstat (limited to 'test/xfdf.lisp')
| -rw-r--r-- | test/xfdf.lisp | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/test/xfdf.lisp b/test/xfdf.lisp index 854538e..63416ea 100644 --- a/test/xfdf.lisp +++ b/test/xfdf.lisp @@ -29,3 +29,47 @@ </field> </fields> </xfdf>")))) + +(test generates-hierarchical-xfdf + (let ((xfdf-string + (with-output-to-string (xfdf-stream) + (xfdf:write-xfdf + xfdf-stream + '(("topmostSubform[0]" + . (("Page1[0]" + . (("c1_01[1]" . "2") + ("f1_02[0]" . "Homer J.") + ("f1_03[0]" . "Simpson"))) + ("Page2[0]" + . (("f2_02[0]" . "1234"))))) + ("bottommostSubform[0]" + . (("Page1[0]" + . (("f1_01[0]" . "Annoyed grunt!")))))))))) + + (is (string= + xfdf-string + "<?xml version=\"1.0\" encoding=\"UTF-8\"?> +<xfdf xmlns=\"http://ns.adobe.com/xfdf/\" xml:space=\"preserve\"> + <fields> + <field name=\"topmostSubform[0]\"> + <field name=\"Page1[0]\"> + <field name=\"c1_01[1]\"> + <value>2</value> + </field> + <field name=\"f1_02[0]\"> + <value>Homer J.</value> + </field> + <field name=\"f1_03[0]\"> + <value>Simpson</value> + </field> + </field> + </field> + <field name=\"bottommostSubform[0]\"> + <field name=\"Page1[0]\"> + <field name=\"f1_01[0]\"> + <value>Annoyed grunt!</value> + </field> + </field> + </field> + </fields> +</xfdf>")))) |