Fixed bug in extend tester that broke the object tester when extendin…

…g it.
dbyrne · Apr 22, 2010 · 123d7b4 · 123d7b4
1 parent 8e25b0e
commit 123d7b4
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/net/licenser/sandbox/tester.clj b/src/net/licenser/sandbox/tester.clj
@@ -63,7 +63,7 @@
                   (:tests %2))) {} definitions)]
     (fn 
       ([]
-	 definitions)
+	 [new-tester definitions])
       ([form nspace]
 	 (let [forms (if (= (type form) clojure.lang.Var) (list form) (fn-seq form))]
 	   (if (empty? forms)
@@ -86,7 +86,7 @@
                   (:tests %2))) {} definitions)]
     (fn 
       ([]
-         definitions)
+         [new-object-tester definitions])
       ([object method]
          (let [method (symbol method)
 	       c (type object)]
@@ -100,7 +100,8 @@
 
 (defn extend-tester    "Extends a tester with more definitions."
   [tester & definitions]
-  (apply new-tester (concat (tester) definitions)))
+  (let [[tester tester-defs] (tester)]
+    (apply tester (concat tester-defs definitions))))
 
 (defn combine-testers
   [& testers]