From 4a833e3c767144bad19f9168fd8ffaa8022a45c9 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Wed, 8 Jan 2020 22:42:58 +0100
Subject: [PATCH] Add test

---
 src/babashka/main.clj       | 3 ++-
 test/babashka/main_test.clj | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index c9f5c86b..553bd931 100644
--- a/src/babashka/main.clj
+++ b/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
diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj
index 10f92793..bcd4a984 100644
--- a/test/babashka/main_test.clj
+++ b/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