From 3a12615b12f221eeefb30987357dd735576a7af6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 28 Feb 2015 16:40:13 -0800
Subject: [PATCH] xml.writer: adding a test for pprint-xml fix.

---
 basis/xml/writer/writer-tests.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/xml/writer/writer-tests.factor b/basis/xml/writer/writer-tests.factor
index 5f4f84f74c..e27c500f33 100644
--- a/basis/xml/writer/writer-tests.factor
+++ b/basis/xml/writer/writer-tests.factor
@@ -75,3 +75,7 @@ IN: xml.writer.tests
     ] map [XML <h2>Timings</h2> <table><-></table> XML]
     pprint-xml
 ] unit-test
+
+{ "<test name=\"bob\"/>" } [
+    "test" { { "name" "bob" } } { } <tag> xml>string
+] unit-test