Add test

src/babashka/main.clj

@@ -217,7 +217,8 @@ Everything after that is bound to *command-line-args*."))
     io clojure.java.io
     async clojure.core.async
     csv clojure.data.csv
-    json cheshire.core})
+    json cheshire.core
+    xml clojure.data.xml})
 
 (def namespaces
   {'clojure.tools.cli tools-cli-namespace

test/babashka/main_test.clj

@@ -337,7 +337,8 @@
     (is (true? (bb nil "(= (first {1 2}) (clojure.lang.MapEntry. 1 2))")))))
 
 (deftest clojure-data-xml-test
-  #_(is (= )))
+  (is (= "<?xml version=\"1.0\" encoding=\"UTF-8\"?><items><item>1</item><item>2</item></items>"
+         (bb nil "(let [xml (xml/parse-str \"<items><item>1</item><item>2</item></items>\")] (xml/emit-str xml))"))))
 
 ;;;; Scratch