clojure - midge を使用した clojure テスト

Question

私の関数は、そこからデポジット値を取得するマップ引数を受け入れます。現在、デポジットの値が空かどうか、デポジットの値が特定の値より大きいかどうかなどのシナリオをテストできます。私の API は、ユーザーがデポジットを行う回数を追跡し、アトムを使用してこれを追跡します。ユーザーが 4 回以上入金した場合、特定のエラー メッセージが表示されます。midje を使用してこのシナリオをテストするにはどうすればよいですか?

以下は私のサンプルテストケースです：

(facts "Mytesting"
       (fact "Invalid Amount"
             (let [response (httpserver/app (mock/request
                                              :post "/deposit"
                                              {:deposit "9"}))] ;
               (:status response) => 422
               (:headers response) => {"Content-Type" "application/json; charset=utf-8", "X-Content-Type-Options" "nosniff", "X-Frame-Options" "SAMEORIGIN", "X-XSS-Protection" "1; mode=block"}
               (:body response) => (json/write-str {:status-code -2 :status-msg "Invalid Amount"}))))