simon/testgen
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Fix small bugs

Browse source
This commit is contained in:
Simon Brooke 2014-04-02 21:20:48 +01:00
parent 6af03289e5
commit da45c7049c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/testgen/core.clj
View file

@ -12,7 +12,7 @@
(vector? arg) (vector? arg)
(map? arg)))) (map? arg))))
(def generic-args nil () true "test" :test 0 Integer/MAX_VALUE 0.0001 -0.0001) (def generic-args '(nil () true "test" :test 0 Integer/MAX_VALUE 0.0001 -0.0001))
(defn find-interesting-args [sexpr] (defn find-interesting-args [sexpr]
"Find things in sexpr which would be interesting if passed as arguments to it" "Find things in sexpr which would be interesting if passed as arguments to it"
@ -26,7 +26,7 @@
#(cond #(cond
(number? %) (list % (inc %) (dec %)) (number? %) (list % (inc %) (dec %))
true %) true %)
(find-interesting-args sexpr)))) (find-interesting-args sexpr)))))
(defn testgen [fndef] (defn testgen [fndef]
(cond (= (first fndef) 'defn) (cond (= (first fndef) 'defn)