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

First function written

Browse source
This commit is contained in:
Simon Brooke 2014-04-02 20:10:27 +01:00
parent ffc14194f4
commit 06f16d561f
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/testgen/core.clj
View file

@ -4,3 +4,8 @@
"I don't do a whole lot." "I don't do a whole lot."
[x] [x]
(println x "Hello, World!")) (println x "Hello, World!"))
(defn write-test [fnname arg]
(list 'is (list '= (list fnname arg) (eval (list fnname arg)))))
(defn testgen [fndef] nil)