From bf29efecb36f43e1ea0d6b17e7e2c35d521d7f5d Mon Sep 17 00:00:00 2001
From: Chris Ford <christophertford@gmail.com>
Date: Wed, 2 Apr 2014 20:39:08 +0100
Subject: [PATCH] Detect constants.
---
src/testgen/core.clj | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/testgen/core.clj b/src/testgen/core.clj
index ebd0357..dc442a6 100644
--- a/src/testgen/core.clj
+++ b/src/testgen/core.clj
@@ -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])))
+ )