From 06f16d561fa3b39c64d0409d18a1e5fce7aa4d7c Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Wed, 2 Apr 2014 20:10:27 +0100
Subject: [PATCH] First function written

---
 src/testgen/core.clj | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/testgen/core.clj b/src/testgen/core.clj
index a84ce6b..7f5298a 100644
--- 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)