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

slavapestov · Mar 1, 2015 · 3a12615 · 3a12615
1 parent c7f440e
commit 3a12615
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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