Switch to testing via lein test. Refs #34.

simonholgate · Jan 18, 2012 · fb5c6ff · fb5c6ff
1 parent c4b268f
commit fb5c6ff
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 26 deletions.
diff --git a/test/one/sample/test/integration.clj b/test/one/sample/test/integration.clj
@@ -2,7 +2,27 @@
   "Tests which cross the client server boundary."
   (:use [clojure.test]
         [one.sample.api :only (*database*)]
-        [one.test :only (cljs-eval cljs-wait-for)]))
+        [one.test :only (cljs-eval cljs-wait-for)]
+        [clojure.java.browse :only (browse-url)]
+        [cljs.repl :only (-setup -tear-down)]
+        [cljs.repl.browser :only (repl-env)]
+        [one.test :only (*eval-env*)]
+        [one.sample.dev-server :only (run-server)]))
+
+(defn setup
+  "Start the development server and connect to the browser so that
+  ClojureScript code can be evaluated from tests."
+  [f]
+  (let [server (run-server)
+        eval-env (repl-env)]
+    (-setup eval-env)
+    (browse-url "http://localhost:8080/development")
+    (binding [*eval-env* eval-env]
+      (f))
+    (-tear-down eval-env)
+    (.stop server)))
+
+(use-fixtures :once setup)
 
 (deftest test-enter-new-name
   (reset! *database* #{})

diff --git a/test/one/sample/test/suite.clj b/test/one/sample/test/suite.clj