Fix monkeypatching issue, use clj-fakes

Change-Id: I8ae31c1b3dfff3096e4bfef709a8f0581d2e9a7c
Issue-ID: DCAEGEN2-260
Signed-off-by: Michael Hwang <mhwang@research.att.com>

1 files changed, 10 insertions, 7 deletions

diff --git a/test/sch/inventory_client_test.clj b/test/sch/inventory_client_test.clj
index 86f369c..493a186 100644
--- a/test/sch/inventory_client_test.clj
+++ b/test/sch/inventory_client_test.clj
@@ -21,7 +21,8 @@
 (ns sch.inventory-client-test
   (:use (clojure test))
   (:require [sch.inventory-client :as ic]
-            [cheshire.core :refer [generate-string]])
+            [cheshire.core :refer [generate-string]]
+            [clj-fakes.core :as f])
   )
 
 
@@ -42,9 +43,10 @@
             {:status 200 :body result})]
     (let [results {:items [{:typeId "123"}]}
           conn (ic/create-inventory-conn "http://inventory")
-          fake-get-success (partial fake-get (generate-string results))
-          nada (intern 'clj-http.client 'get fake-get-success)]
-      (is (= (:items results) (ic/get-service-types! conn [])))
+          fake-get-success (partial fake-get (generate-string results))]
+      (f/with-fakes
+        (f/patch! #'clj-http.client/get fake-get-success)
+        (is (= (:items results) (ic/get-service-types! conn []))))
       )))
 
 
@@ -53,7 +55,8 @@
             {:status 200 :body result})]
     (let [result {:typeId "123"}
           conn (ic/create-inventory-conn "http://inventory")
-          fake-post-success (partial fake-post (generate-string result))
-          nada (intern 'clj-http.client 'post fake-post-success)]
-      (is (= result (ic/post-service-type! conn {})))
+          fake-post-success (partial fake-post (generate-string result))]
+      (f/with-fakes
+        (f/patch! #'clj-http.client/post fake-post-success)
+        (is (= result (ic/post-service-type! conn {}))))
       )))