Init report formatter

Author: Aitem

src/stresty/core.clj

@@ -32,10 +32,12 @@
 
   (def marata-test
     (do
-      (prn "---------------------------------------------")
+      ;;(prn "---------------------------------------------")
       ;;(-main "--path=/Users/aitem/Work/HS/ssty/t" "--ns=rmis" "tests")
       (prn "---------------------------------------------")
       (-main "--path=/Users/aitem/Work/HS/ssty/t" "--format=stdout" "--ns=rmis" "tests")
+      (prn "---------------------------------------------")
+      (def p (-main "--path=/Users/aitem/Work/HS/ssty/t" "--format=report" "--ns=rmis" "tests"))
       ))
 
   (def ctx (-main "server" "--port=8888"))

src/stresty/format/report.clj

@@ -0,0 +1,54 @@
+(ns stresty.format.report
+  (:require [stresty.format.core :as fmt]
+            [clojure.string :as str]))
+
+(defmethod fmt/do-format
+  'sty/report-fmt
+  [ztx _ state {tp :type ts :ts :as event}]
+  (cond
+    (= tp 'sty/on-tests-start)
+    (swap! state assoc :start ts)
+
+    (= tp 'sty/on-zen-errors)
+    (do
+      (println "Syntax errors:")
+      (println (str/join "\n"
+                         (->>
+                          (:errors event)
+                          (mapv (fn [{msg :message res :resource pth :path}]
+                                  (str ">> " msg " in " res " at " pth)))))))
+
+    (= tp 'sty/on-env-start)
+    (print (get-in event [:env :zen/name]) "{")
+
+    (= tp 'sty/on-case-start)
+    (print "(")
+
+    (= tp 'sty/on-step-start)
+    :nop
+
+    (tp (set ['sty/on-step-success 'sty/on-match-ok]))
+    (print ".")
+
+    (tp (set ['sty/on-step-fail 'sty/on-match-fail]))
+    (print "x")
+
+    ;;(= tp 'sty/tests-summary)
+    ;;(summary ztx)
+
+    (= tp 'sty/on-step-exception)
+    (print "!")
+
+    (= tp 'sty/on-case-end)
+    (print ")")
+
+    (= tp 'sty/on-env-end)
+    (print "}\n")
+
+
+    (= tp 'sty/tests-done)
+    (print "done \n")
+
+    )
+
+  )

src/stresty/operations/core.clj

@@ -107,6 +107,7 @@
     (let [env (zen/get-symbol ztx env-ref)]
       (run-env ztx env)))
   (fmt/emit ztx {:type 'sty/tests-summary})
+  (fmt/emit ztx {:type 'sty/tests-done})
   {:result params})
 
 (defmethod call-op 'sty/gen

src/stresty/server/core.clj

@@ -7,6 +7,7 @@
    [stresty.server.cli]
    [stresty.operations.core]
    [stresty.format.core :as fmt]
+   [stresty.format.report]
    [stresty.sci]
    [clojure.string :as str]))
 
@@ -64,6 +65,7 @@ sty => help
   (swap! ztx assoc :opts opts :formatters
          (let [fmt (get {"ndjson" 'sty/ndjson-fmt
                          "stdout" 'sty/stdout-fmt
+                         "report" 'sty/report-fmt ;; html report
                          "debug"  'sty/debug-fmt}
                         (:format opts)
                         'sty/debug-fmt)]