| ;; Deze functie wrapped onze servlet implementatie, roept de service method | |
| ;; aan met de gegeven handler en geeft ons de response terug | |
| (defn mock-servlet [handler] | |
| ;; Functie kunnen anonieme functies teruggeven | |
| (fn [request] | |
| ;; Houdt een referentie bij die verwijst naar de response map | |
| (let [response (atom {})] | |
| ;; Voer de service method uit met onze mock objecten | |
| (.service (servlet handler) | |
| (servlet-request request) | |
| (servlet-response response)) | |
| ;; Geeft de data van de referentie terug | |
| @response))) |