2014-11-19: added sxml test.

added sxml test.

diff --git a/tests/sxml.scm b/tests/sxml.scm
new file mode 100644
--- /dev/null
+++ b/tests/sxml.scm
@@ -0,0 +1,16 @@
+(use-modules (sxml simple))
+
+; write xml to the output port
+(sxml->xml
+   (quote
+     (html
+         (head (title "test"))
+         (body
+             (h1 "test")
+             (p "it " (em "works!")
+               (br)
+               (" it actually works!"))))))
+
+(newline)
+
+
diff --git a/tests/sxml.w b/tests/sxml.w
new file mode 100644
--- /dev/null
+++ b/tests/sxml.w
@@ -0,0 +1,14 @@
+use-modules : sxml simple
+
+; write xml to the output port
+sxml->xml
+   quote
+     html
+         head : title "test"
+         body
+             h1 "test"
+             p "it " : em "works!"
+               br
+               " it actually works!"
+
+newline