added a test-env? function to util which is used in the main bot/init…

… function. If an you set a system prop or env-var called ENVIRONMENT to TEST it will not init the threads for jarvis

project.clj

@@ -1,4 +1,4 @@
-(defproject com.rallydev/jarvis-core "1.5.3"
+(defproject com.rallydev/jarvis-core "1.6.0"
   :description "A robot for FlowDock"
   :url "http://github.com/RallySoftware/jarvis-core"
   :license {:name "The MIT License (MIT)"

src/main/clojure/jarvis/bot.clj

@@ -58,7 +58,7 @@
   (log/info "Starting Jarvis...")
   (when-let [plugins (plugins/load-plugins)]
     (log/info "Starting to read from flowdock streams")
-    (init-threads plugins)))
+    (if-not (util/test-env?) (init-threads plugins))))
 
 (defn -main []
   (jarvis/init))

src/main/clojure/jarvis/util.clj

@@ -41,4 +41,7 @@
             (get "content")
             (subs 1)
             build-string
-            (edn/read-string)))))
+            (edn/read-string)))))
+
+(defn test-env? []
+  (= "TEST" (config-property "ENVIRONMENT" false)))

src/test/clojure/jarvis/util_test.clj

@@ -13,4 +13,9 @@
 (deftest message-content->vec
   (is (= ["foo"] (util/message-content->vec {"content" "~foo"})))
   (is (= ["foo" "bar"] (util/message-content->vec {"content" "~foo bar"})))
-  (is (= ["foo" "bar" "1"] (util/message-content->vec {"content" "~foo bar 1"}))))
+  (is (= ["foo" "bar" "1"] (util/message-content->vec {"content" "~foo bar 1"}))))
+
+(deftest test-env
+  (is (= false (util/test-env?)))
+  (System/setProperty "ENVIRONMENT" "TEST")
+  (is (= true (util/test-env?))))