First function written

2014-04-02 20:10:27 +01:00 · 2014-04-02 20:10:27 +01:00 · 06f16d561f
parent ffc14194f4
commit 06f16d561f
1 changed files with 5 additions and 0 deletions
--- a/src/testgen/core.clj
+++ b/src/testgen/core.clj
@ -4,3 +4,8 @@
  "I don't do a whole lot."
  [x]
  (println x "Hello, World!"))
+
+(defn write-test [fnname arg] 
+     (list 'is (list '= (list fnname arg) (eval (list fnname arg)))))
+
+(defn testgen [fndef] nil)