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)