 
 (deftest ^:async parser-case4
   (testing "Case 4 - Text + attributes element"
-    (print "== case 4")
     (go
       (let [xml "<element att1='a' att2='b'>value</element>"
             result (-> xml core/xml->clj <!)]


(deftest ^:async parser-case2
  (testing "Case 2 - Empty element with attributes"
    (print "== case 2")
    (go
      (let [xml "<element att1='a' att2='b'/>"
            result (-> xml core/xml->clj <!)]


(deftest ^:async parser-case5
  (testing "Case 5 - Subtree elements (no repetition)"
    (go
      (let [xml "<element>
                   <elem-a>1</elem-a>
                   <elem-b>2</elem-b>
                   <elem-c>3</elem-c>
                 </element>"
            result (-> xml core/xml->clj <!)]
        (is (= result [:element {} [[:elem-a {} ["1"]] [:elem-b {} ["2"]] [:elem-c {} ["3"]]]]))
        (done)))))

(deftest ^:async parser-case6
  (testing "Case 6 - Subtree elements (repetition)"
    (go
      (let [xml "<element>
                   <elem-a>1</elem-a>
                   <elem-a>2</elem-a>
                   <elem-b>3</elem-b>
                 </element>"
            result (-> xml core/xml->clj <!)]
        (is (= result [:element {} [[:elem-a {} ["1"]] [:elem-a {} ["2"]] [:elem-b {} ["3"]]]]))
        (done)))))

(deftest ^:async parser-case7
  (testing "Case 7 - Nested tree"
    (go
      (let [xml "<element>
                   <elem-a>
                     <elem-b>
                       <elem-c>test</elem-c>
                     </elem-b>
                   </elem-a>
                 </element>"
            result (-> xml core/xml->clj <!)]
        (is (= result [:element {} [[:elem-a {} [[:elem-b {} [[:elem-c {} ["test"]]]]]]  ]]))
        (done)))))

(deftest ^:async parser-case8
  (testing "Case 8 - Nested tree with children"
    (go
      (let [xml "<element>
                   <elem-a>
                     <elem-b>
                       <elem-c>test1</elem-c>
                       <elem-c>test2</elem-c>
                       <elem-c>test3</elem-c>
                     </elem-b>
                   </elem-a>
                   <elem-a>other</elem-a>
                 </element>"
            result (-> xml core/xml->clj <!)]
        (is (= result
               [:element {}
