Is there a nice way to be less nested?

contexts.clj

      (it "can call connect, talking to crunch and storing the temporary token"
        (mock-request-token "callback-url" "token" "secret"
          (mock-approval-uri "token" "approval-url"
            (let [app  (fn [req] {:body (auth/connect "callback-url")})
                  resp ((auth/wrap-auth app @options) @request)]
              (should= "approval-url" (:body resp))
              (should-contain "crunch-temp-auth" (:cookies resp))
              (let [cookie (get-in resp [:cookies "crunch-temp-auth"])]
                (should= "token&secret" (:value cookie))
                (should= 300 (:max-age cookie))
                (should= true (:http-only cookie)))))))