use midje, add some tests

rplevy · rplevy · commit a77887079192 · 2011-12-12T14:39:44.000-05:00
diff --git a/project.clj b/project.clj
@@ -2,4 +2,5 @@
   :description "Improve seamlessness of Clojure Jython interop."
   :dependencies [[org.clojure/clojure "1.3.0"]
                  [org.python/jython-standalone "2.5.2"]]
-  :main clojure-python.core)
+  :dev-dependencies [[midje "1.3.0-RC4"]]
+  :main clojure-python.core)
diff --git a/test/clojure_python/core_test.clj b/test/clojure_python/core_test.clj
diff --git a/test/clojure_python/t_core.clj b/test/clojure_python/t_core.clj
@@ -0,0 +1,38 @@
+(ns clojure-python.t-core
+  (:use midje.sweet)
+  (:require [clojure-python.core :as base]))
+
+(fact "append-paths adds the path to system path"
+      (binding [base/*interp* (org.python.util.PythonInterpreter.)]
+        (-> (#'base/append-paths! ["test/clojure_python/"])
+            .getLocals
+            (.__getitem__ "sys")
+            .path
+            set
+            (get "test/clojure_python/")))
+      =>
+      "test/clojure_python/")
+
+(fact "init sets *interp* root binding (but only once)"
+      (do
+        (base/init {:libpaths ["test/clojure_python/"]})
+        (class base/*interp*))
+      =>
+      org.python.util.PythonInterpreter
+
+      (do
+        (base/init {:libpaths ["test/clojure_python/"]})
+        (class base/*interp*))
+      =>
+      (do
+        (base/init {:libpaths ["test/clojure_python/"]})
+        (class base/*interp*)))
+
+(fact "with-interpreter dynamically binds a new interpreter environment"
+      (base/with-interpreter
+        {:libpaths ["test/clojure_python/"]}
+        base/*interp*)
+      =not=>
+      (base/with-interpreter
+        {:libpaths ["test/clojure_python/"]}
+        base/*interp*))
