added :dynamic annotations to mock

1 files changed, 10 insertions, 3 deletions

diff --git a/src/clojure/contrib/mock.clj b/src/clojure/contrib/mock.clj
index e079719d..a284b527 100644
--- a/src/clojure/contrib/mock.clj
+++ b/src/clojure/contrib/mock.clj
@@ -62,21 +62,28 @@
 ;; the test framework of your choice, or to simply customize error handling.

 

 (defn report-problem

+  {:dynamic true}

   ([function expected actual]

     (report-problem function expected actual "Expectation not met."))

   ([function expected actual message]

     (prn (str message " Function name: " function

            " expected: " expected " actual: " actual))))

 

-(defn no-matching-function-signature [function expected actual]

+(defn no-matching-function-signature

+  {:dynamic true} 

+  [function expected actual]

   (report-problem function expected actual

     "No matching real function signature for given argument count."))

 

-(defn unexpected-args [function expected actual i]

+(defn unexpected-args 

+  {:dynamic true}

+  [function expected actual i]

   (report-problem function expected actual

     (str "Argument " i " has an unexpected value for function.")))

 

-(defn incorrect-invocation-count [function expected actual]

+(defn incorrect-invocation-count 

+  {:dynamic true}

+  [function expected actual]

   (report-problem function expected actual "Unexpected invocation count."))