diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/run.lisp | 3 | ||||
| -rw-r--r-- | test/xfdf.lisp | 37 |
2 files changed, 40 insertions, 0 deletions
diff --git a/test/run.lisp b/test/run.lisp new file mode 100644 index 0000000..067bcff --- /dev/null +++ b/test/run.lisp @@ -0,0 +1,3 @@ +(ql:quickload "xfdf-test") +(asdf:test-system :xfdf-test) +(quit) diff --git a/test/xfdf.lisp b/test/xfdf.lisp new file mode 100644 index 0000000..87accaf --- /dev/null +++ b/test/xfdf.lisp @@ -0,0 +1,37 @@ +(defpackage :xfdf-test + (:use :cl + :1am + :xfdf) + + ; (:export #:run) + ) + +(in-package :xfdf-test) + +; (defun run () +; (1am:run)) + +(test generates-xfdf-xml + (let ((xfdf-string + (with-output-to-string (xfdf-stream) + (xfdf:write-xfdf + xfdf-stream + '(("checkbox-on" . T) + ("checkbox-off" . nil) + ("text" . "123 Fake Street, Springfield")))))) + (is (string= + xfdf-string + "<?xml version=\"1.0\" encoding=\"UTF-8\"?> +<xfdf xmlns=\"http://ns.adobe.com/xfdf/\" xml:space=\"preserve\"> + <fields> + <field name=\"checkbox-on\"> + <value>Yes</value> + </field> + <field name=\"checkbox-off\"> + <value>Off</value> + </field> + <field name=\"text\"> + <value>123 Fake Street, Springfield</value> + </field> + </fields> +</xfdf>")))) |