mock.clj

(defmacro mock-2
  [class method arglist result]
  (let [mocked (gensym class)]
    `(let [~mocked (org.mockito.Mockito/mock ~class)]
       ~(list '.thenReturn
               (list 'org.mockito.Mockito/when
                     (list* (symbol (str \. method)) mocked arglist))
               result))))

user=> (macroexpand-1 '(mock-2 File myMethod ["foo" "foo"] "bar"))

(clojure.core/let
  [File2567 (org.mockito.Mockito/mock File)]
  (.thenReturn (org.mockito.Mockito/when (.myMethod File2567 "foo" "foo")) "bar"))