Remove run-tests and other side-effecty material

purcell · Nov 13, 2013 · 925e13f · 925e13f
1 parent 41bf25b
commit 925e13f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 9 deletions.
diff --git a/test/troncle/core_test.clj b/test/troncle/core_test.clj
@@ -47,22 +47,17 @@
       (is ((meta capitalize) :troncle.core/wrap))
       (is (not ((meta defn) :troncle.core/wrap))))))
 
-(u/starbreak)
-(run-tests)
-
 ;; (defonce myns-sym (gensym))
 (def myns-sym 'troncle.tst)
 (def myns (create-ns myns-sym))
 (binding [*ns* myns]
   (clojure.core/refer-clojure))
-(ns-unmap myns 'capitalize)
 
+(ns-unmap myns 'capitalize)
 (swap! troncle.traces/trace-execution-function
        (constantly #(println ((ns-resolve myns-sym 'capitalize) "foo"))))
-
 (trace-marked-forms
  test-string 5 100 myns
  #(list 'clojure.tools.trace/trace
-                           (pr-str ((juxt :line :column) (meta %1)) %1) %2))
-
+        (pr-str ((juxt :line :column) (meta %1)) %1) %2))
 (@troncle.traces/trace-execution-function)
diff --git a/test/troncle/wrap_test.clj b/test/troncle/wrap_test.clj
@@ -105,5 +105,3 @@
   (wrapper= '(try   (apply f args)  (finally    (pop-thread-bindings)))
             '(try (w (apply f args)) (finally (w (pop-thread-bindings))))))
 
-(u/starbreak)
-(run-tests)