xml.writer: adding a test for pprint-xml fix.

diff --git a/basis/xml/writer/writer-tests.factor b/basis/xml/writer/writer-tests.factor
index 5f4f84f74c8976f0f5a424d357cb4ea77969559e..e27c500f3366eeb7a7268279ead7c2a5b6692332 100644 (file)
--- 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