Start Testing Dashboard components

Start writing tests for the dashboard components, testing the Hiccup structure
that should be returned.

Experimented in the REPL to check what the output should look like.

src/status_monitor/handler.clj

@@ -220,5 +220,10 @@
     (rand-int (+ maximum-value 1))))
 
 
-(mock-data 10.0)
+#_(mock-data 10.0)
 ;; => "6.02"
+
+
+
+#_(component-status-bar 50)
+;; => [:svg {:view-box "0 0 100 20", :width 202, :height 22} [:rect {:x 1, :y 1, :width 50, :height 20, :rx 5, :ry 5, :stroke "black", :fill "orange"}]]

test/status_monitor/handler_test.clj

@@ -12,3 +12,23 @@
   (testing "not-found route"
     (let [response (app (mock/request :get "/invalid"))]
       (is (= (:status response) 404)))))
+
+
+(deftest test-components
+  (testing "UI data generated by the dashboard components in Hiccup format"
+    (let [component-50-per-cent
+          [:svg
+           {:view-box "0 0 100 20"
+            :width    202
+            :height   22}
+           [:rect
+            {:x      1
+             :y      1
+             :width  50
+             :height 20
+             :rx     5
+             :ry     5
+             :stroke "black"
+             :fill   "orange"}]]]
+      (is (= (component-status-bar 50)
+             component-50-per-cent)))))