add option to display version

Author: shmuelko

src/practitest_firecracker/cli.clj

@@ -111,15 +111,13 @@
       {:exit-message (error-msg errors)}
 
       (= "display-config" (first arguments))
-      (cond
-        :else
-        {:action "display-config" :options options})
+      {:action "display-config" :options options}
 
       (= "display-options" (first arguments))
-      (cond
-        :else
-        {:action "display-options" :options options})
+      {:action "display-options" :options options}
 
+      (= "version")
+      {:action "version" :options options}
       ;; (= "create-testset" (first arguments))
       ;; (cond
       ;;   (nil? (:project-id options))

src/practitest_firecracker/core.clj

@@ -8,7 +8,8 @@
                                                group-tests
                                                create-or-update-tests
                                                create-instances
-                                               create-runs]]
+                                               create-runs
+                                               fc-version]]
    [practitest-firecracker.parser.core :refer [send-directory parse-files]]
    [practitest-firecracker.utils       :refer [exit]]
    [clojure.pprint                     :as     pprint]
@@ -45,6 +46,10 @@
               (pprint/pprint {"=============== options: ===============" options})
               (pprint/pprint {"=============== args: ===============" args}))
 
+            "version"
+            (do
+              (println "Version: " fc-version))
+
             ;; "create-testset"
             ;; (do
             ;;   (doall

src/practitest_firecracker/utils.clj

@@ -1,7 +1,9 @@
 (ns practitest-firecracker.utils
   (:require
    [clj-time.core                      :as t]
-   [clojure.pprint                     :as pprint]))
+   [clojure.pprint                     :as pprint]
+   [clojure.string                     :as string]
+   [cheshire.core                      :as json]))
 
 (defn print-run-time [text start-time]
   (let [sec-pass   (t/in-seconds (t/interval start-time (t/now)))