From f65185b963dbda9f026cb5c1578c9e5d05f4c894 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Wed, 2 Apr 2014 20:51:11 +0100 Subject: [PATCH] Now handles things which throw exceptions --- src/testgen/core.clj | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/testgen/core.clj b/src/testgen/core.clj index 7f5298a..ebd0357 100644 --- a/src/testgen/core.clj +++ b/src/testgen/core.clj @@ -1,11 +1,9 @@ (ns testgen.core) -(defn foo - "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))))) + (try + (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)