Add test system

Write a test for the `write-xfdf` function.

Worked out how to create the test system from:

- https://lispcookbook.github.io/cl-cookbook/testing.html
- https://github.com/sjl/cl-digraph/blob/master/cl-digraph.test.asd
- https://github.com/fukamachi/dexador/blob/master/dexador-test.asd

Add the test string to the `write-xfdf` function to pass the test and
check that the test runner is set up correctly.

1 files changed, 37 insertions, 0 deletions

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>"))))