Function generator in test.check

Question

I want to make a generators for functions.

I've noticed that there are indeed generators for IFn values, but when the function domain is infinite (and since the values are strict), it's not generally practical for them to be used as generators for functions.

Does this functionality exist or would I have to implement it myself?

score 2 · Accepted Answer · answered Nov 15 '16 at 15:47

I think the answer depends on what sort of behavior you're expecting the function to have. In general you can use gen/let or gen/fmap to create arbitrary functions based on generated values. For example, you can generate a list of values and use it to construct a function that picks something from the list based on the hash of the input:

(gen/let [rets (gen/not-empty (gen/vector gen/any))]
  (fn [x]
    (rets (mod (hash x) (count rets)))))

MasterMastic · Answer 2 · 2016-11-21T11:50:23.070

0

Building on gfredericks answer to a more complete solution:

(defn fn-gen
  ([result-gen results-n result-scale]
   (gen/fmap
    (fn [results] (fn [& args] (get results (mod (apply + (map hash args)) results-n))))
    (gen/vector (gen/scale (partial + result-scale) result-gen) results-n)))
  ([result-gen result-n] (fn-gen result-gen result-n 10))
  ([result-gen] (fn-gen result-gen 10)))

edited Nov 21 '16 at 11:50

answered Nov 18 '16 at 17:43

MasterMastic

20,711
12
68
90

Did you mean `(map hash args)` instead of `(map hash results)`? – gfredericks Nov 20 '16 at 21:17
@gfredericks Nice catch, yup. Thank you. – MasterMastic Nov 21 '16 at 11:50

Function generator in test.check

2 Answers2