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

Detect constants.

Browse source
This commit is contained in:
Chris Ford 2014-04-02 20:39:08 +01:00
parent f65185b963
commit bf29efecb3
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/testgen/core.clj
View file

@ -5,5 +5,13 @@
(list 'is (list '= (list fnname arg) (eval (list fnname arg))))
(catch Exception e (list 'is (list 'thrown? (.getClass e) (list fnname arg))))))
(defn testgen [fndef] nil)
(defn is-constant? [x] (not (symbol? x)))
(defn constants [form]
(filter is-constant? (flatten form)))
(comment
(constants '(fn is-four [x] (= 88 [44])))
)