Clojure Contrib

Namespaces

clojure.contrib
- accumulators
- agent-utils
- apply-macro
- base64
- classpath
- combinatorics
- command-line
- complex-numbers
- cond
- condition
- core
- dataflow
- datalog
  - database
  - literals
  - magic
  - rules
  - softstrat
  - util
- def
- duck-streams
- error-kit
- except
- fcase
- find-namespaces
- fnmap
  - PersistentFnMap
- gen-html-docs
- generic
  - arithmetic
  - collection
  - comparison
  - functor
  - math-functions
- graph
- greatest-least
- http
  - agent
  - connection
- import-static
- io
- jar
- java-utils
- javadoc
  - browse
  - browse-ui
- jmx
  - Bean
- json
- lazy-seqs
- lazy-xml
- logging
- macro-utils
- macros
- map-utils
- math
- miglayout
  - internal
- mmap
- mock
  - test-adapter
- monadic-io-streams
- monads
- ns-utils
- pprint
  - column-writer
  - pretty-writer
  - utilities
- probabilities
  - finite-distributions
  - monte-carlo
  - random-numbers
- profile
- properties
- prxml
- reflect
- repl-ln
- repl-utils
- seq
- seq-utils
- server-socket
- set
- shell
- shell-out
- singleton
- sql
  - internal
- str-utils
- str-utils2
- stream-utils
- string
- strint
- swing-utils
- test-is
- trace
- types
- with-ns
- zip-filter
  - xml

1.2.0

1.2.0 permalink

expect

Use expect to redirect calls to dependent functions that are made within the
code under test. Instead of calling the functions that would normally be used,
temporary stubs are used, which can verify function parameters and call counts.
Return values can also be specified as needed.
Usage:
(expect [dep-fn (has-args [arg-pred1] (times n (returns x)))]
(function-under-test a b c))

1 Example top

link | changes
```
(defn square [x] (* x x))

(defn square-of-sum [x y] (square (+ x y)))

(deftest test-square-of-sum
  (expect [square (has-args [3] (times 1))]
    (square-of-sum 2 1)))
```
(defn square [x] (* x x)) (defn square-of-sum [x y] (square (+ x y))) (deftest test-square-of-sum (expect [square (has-args [3] (times 1))] (square-of-sum 2 1)))

Source clojure/contrib/mock.clj:265 top

(defmacro expect
 "Use expect to redirect calls to dependent functions that are made within the
code under test. Instead of calling the functions that would normally be used,
temporary stubs are used, which can verify function parameters and call counts.
Return values can also be specified as needed.
Usage:
(expect [dep-fn (has-args [arg-pred1] (times n (returns x)))]
  (function-under-test a b c))"

  [expect-bindings & body]
  (assert-args expect
    (vector? expect-bindings) "a vector of expectation bindings"
    (even? (count expect-bindings))
    "an even number of forms in expectation bindings")
  (let [mock-data (gensym "mock-data_")]
    `(let [~mock-data (map (fn [args#]
                             (apply clojure.contrib.mock/make-mock args#))
                        ~(cons 'list (map (fn [[n m]] (vector (list 'quote n) m))
                                       (partition 2 expect-bindings))))]
       (binding ~(make-bindings expect-bindings mock-data) ~@body)
       (clojure.contrib.mock/validate-counts ~mock-data) true)))

Vars in clojure.contrib.mock/expect: cons count defmacro even? fn let list map partition vector vector? make-mock validate-counts apply binding concat seq

Used in 0 other vars

ClojureDocs(beta)

Clojure Contrib

Namespaces

expect

clojure.contrib.mock

1 Example top

See Also top

Source clojure/contrib/mock.clj:265 top

Comments top

No comments for expect. Log in to add a comment.