I dislike most mocking, and try and avoid it as much as possible. Sometimes it is however the only realistic way of testing. I did a quick survey of mocking tools in clojure, and found them very much reflecting the Java mocking libraries. Clojure has a few more dynamic capabilities than Java, so I thought a little about how these could be used to make a simple mocking facility, and atticus is what I came up with.
There is a consensus that mocking should be implemented by binding a function’s var to a new function for the duration of a test, and atticus does this too. Atticus’ premise is that we can do simple mocking by declaring the mock function as a local function definition, and have the local function do the argument checking, return value setting, etc. The simplest case would be something like below, which checks the value of its argument and specifies a return value:
;; pull in namespaces (use ‘clojure.test) (require ‘atticus.mock)
;; define test which mocks f (deftest mock-test (atticus.mock/expects [(f arg “Check argument”) arg)] ; set the return value ;; in a real test case this would be called ;; indirectly by some other function (is (= 1 (f 1)) “Call mocked function”))
At the moment, I have added two macros to this.
checks a function is called once, and
times, which checks that a
function is called a specific number of times. The macros are used to wrap the
body of the mock function, which keeps the function’s expected behaviour in one
;; define test, that should be called just once (deftest mock-test (atticus.mock/expects (f arg “Check argument”) arg))) “Call mocked function”))
;; define test, that should be called exactly twice (deftest mock-test (atticus.mock/expects (f arg “Check argument”) arg))) “Call mocked function”) (is (= 1 (f 1)) “Call mocked function”))
So what do you think, is this a reasonable approach? Not having the explicit
returns, etc, might be seen as a loss of declarative
clarity, but I for one prefer this, as it gives you the full power of the
language to test the arguments and set the return value.