xunit preprocessor

Transform nested `testsuite` tags into flattened list of `testuite` tags
preserving the information from the hierarchy in the name of the
flattened `testsuite` tags.

Author: stask

.clj-kondo/babashka/fs/config.edn

@@ -0,0 +1 @@
+{:lint-as {babashka.fs/with-temp-dir clojure.core/let}}

.clj-kondo/http-kit/http-kit/config.edn

@@ -0,0 +1,3 @@
+
+{:hooks
+ {:analyze-call {org.httpkit.server/with-channel httpkit.with-channel/with-channel}}}

.clj-kondo/http-kit/http-kit/httpkit/with_channel.clj

@@ -0,0 +1,16 @@
+(ns httpkit.with-channel
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn with-channel [{node :node}]
+  (let [[request channel & body] (rest (:children node))]
+    (when-not (and request     channel) (throw (ex-info "No request or channel provided" {})))
+    (when-not (api/token-node? channel) (throw (ex-info "Missing channel argument" {})))
+    (let [new-node
+          (api/list-node
+            (list*
+              (api/token-node 'let)
+              (api/vector-node [channel (api/vector-node [])])
+              request
+              body))]
+
+      {:node new-node})))

.clj-kondo/rewrite-clj/rewrite-clj/config.edn

@@ -0,0 +1,5 @@
+{:lint-as
+ {rewrite-clj.zip/subedit-> clojure.core/->
+  rewrite-clj.zip/subedit->> clojure.core/->>
+  rewrite-clj.zip/edit-> clojure.core/->
+  rewrite-clj.zip/edit->> clojure.core/->>}}

.clj-kondo/taoensso/encore/config.edn

@@ -0,0 +1 @@
+{:hooks {:analyze-call {taoensso.encore/defalias taoensso.encore/defalias}}}

.clj-kondo/taoensso/encore/taoensso/encore.clj

@@ -0,0 +1,16 @@
+(ns taoensso.encore
+  (:require
+   [clj-kondo.hooks-api :as hooks]))
+
+(defn defalias [{:keys [node]}]
+  (let [[sym-raw src-raw] (rest (:children node))
+        src (if src-raw src-raw sym-raw)
+        sym (if src-raw
+              sym-raw
+              (symbol (name (hooks/sexpr src))))]
+    {:node (with-meta
+             (hooks/list-node
+               [(hooks/token-node 'def)
+                (hooks/token-node (hooks/sexpr sym))
+                (hooks/token-node (hooks/sexpr src))])
+             (meta src))}))

bb.edn

@@ -0,0 +1,3 @@
+{:tasks
+ {dev {:doc "Run dev repl"
+       :task (clojure "-M:dev:repl")}}}

deps.edn

@@ -13,12 +13,16 @@
  :aliases
  {:dev       {:extra-paths ["dev"]}
   :package   {:extra-paths ["resources" "target/cljs/"]}
-  :nrepl     {:extra-deps {nrepl/nrepl {:mvn/version "0.6.0"}}}
+  :repl {:extra-deps {nrepl/nrepl       {:mvn/version "1.0.0"}
+                      cider/cider-nrepl {:mvn/version "0.41.0"}}
+         :main-opts  ["-m" "nrepl.cmdline"
+                      "--middleware" "[cider.nrepl/cider-middleware]"
+                      "--interactive"]}
   :uberdeps  {:extra-deps {uberdeps/uberdeps {:mvn/version "0.1.8"}}
               :main-opts  ["-m" "uberdeps.uberjar"]}
   :depstar   {:extra-deps
               {seancorfield/depstar {:mvn/version "1.0.94"}}}
   :webassets {:extra-paths ["dev"]}
   :reveal {:extra-deps {vlaaad/reveal {:mvn/version "1.3.280"}}
             ;; optional: preferences
-            :jvm-opts ["-Dvlaaad.reveal.prefs={:theme,:light}"]}}}
+           :jvm-opts ["-Dvlaaad.reveal.prefs={:theme,:light}"]}}}

dev/user.clj

@@ -1,4 +1,10 @@
 (ns user
   (:require
    [clojure.repl   :refer [doc source]]
-   [clojure.pprint :refer [pprint]]))
+   [clojure.pprint :refer [pprint]]
+   [practitest-firecracker.parser.core :as parser]))
+
+(comment
+
+  (parser/zip-str (slurp "test-data/xunit/robot-framework-globe-example.xml"))
+  )

src/practitest_firecracker/parser/core.clj

@@ -19,9 +19,42 @@
 (defn str-to-number [val]
   (if (not (nil? val)) (.parse (NumberFormat/getInstance) val) 0))
 
+(defn has-nested-testsuite? [element]
+  (some #(= :testsuite (:tag %)) (:content element)))
+
+(defn flatten-testsuite 
+  "xUnit sometimes has hierarchy of `testsuite` tags.
+   This function will flatten the hierarchy, capturing the parent testsuite names.
+   For example, if there is a testsuite A which has a child B, which has testcases,
+   we will leave only B, but change the name attribute to 'A: B'."
+  [element]
+  (loop [acc [] children (:content element) prefix (-> element :attrs :name)]
+    (if (empty? children)
+      acc
+      (let [head (first children)
+            tail (rest children)]
+        (if (= :testsuite (:tag head))
+          (let [head (update-in head [:attrs :name] #(str prefix ": " %))]
+            (if (has-nested-testsuite? head)
+              (recur (concat acc (flatten-testsuite head)) tail prefix)
+              (recur (conj acc head) tail prefix)))
+          (recur (conj acc head) tail prefix))))))
+
+(defn preprocess-xunit 
+  "Support for xUnit.
+   Since xUnit does not have root testsuites tag, but does have hierarchy of testsuite tags (sometimes),
+   Here we will wrap it in a fake testsuites tag.
+   This is done to support the case when `flatten-testsuite` returns a list of the testsuites."
+  [root]
+  (if (and (= :testsuite (:tag root))
+           (has-nested-testsuite? root))
+    {:tag :testsuites :content (flatten-testsuite root)}
+    root))
+
 (defn zip-str [s]
   (zip/xml-zip
-    (xml/parse (ByteArrayInputStream. (.getBytes s "UTF-8")))))
+    (preprocess-xunit 
+      (xml/parse (ByteArrayInputStream. (.getBytes s "UTF-8"))))))
 
 (defn filter-tags [tag-key xml-content]
   (let [filter-result (filter #(= (:tag %) tag-key) xml-content)]
@@ -198,3 +231,16 @@
     (let [result (get-dir-by-path arg (= "true" multi-test-cases) (= "true" multi-testsets) testset-name (= "true" sample))]
       result)
     (throw (Exception. "Must have at least one argument!"))))
+
+(comment
+  (let [s (slurp "test-data/robot/RobotDemo/xunit-combinded.xml")]
+    (zip/xml-zip
+      (preprocess-xunit
+        (xml/parse (ByteArrayInputStream. (.getBytes s "UTF-8"))))))
+
+  (let [s (slurp "test-data/carmit/junit-report.xml")]
+    (zip/xml-zip
+      (preprocess-xunit
+        (xml/parse (ByteArrayInputStream. (.getBytes s "UTF-8"))))))
+
+  )