xml.data: adding tests for tags assoc protocol.

diff --git a/basis/xml/data/data-tests.factor b/basis/xml/data/data-tests.factor
new file mode 100644 (file)
index 0000000..fa147b0
--- /dev/null
+++ b/basis/xml/data/data-tests.factor
@@ -0,0 +1,4 @@
+USING: assocs tools.test ;
+IN: xml.data
+
+{ "bob" } [ "test" { { "name" "bob" } } { } <tag> "name" of ] unit-test