added comments to explain my test cases

ckirkendall · Jul 18, 2011 · f670e41 · f670e41
1 parent 066f4d0
commit f670e41
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/test/cljgiven/test/core.clj b/test/cljgiven/test/core.clj
@@ -2,6 +2,8 @@
   (:use [cljgiven.core])
   (:use [clojure.test]))
 
+;simple test of basic structure
+
 (defspec basic-spec 
   (Given [t1 (+ 1 x)
           t2 (- 2 t1)])
@@ -15,6 +17,9 @@
            (Then (= 2 result2)))) ;this test is designed to fail
 
 
+;testing the sub context and the 
+;proper handling of of overriding
+;stack by a When
 (defspec stack 
   (Given [stack init-obj])
   (Context "testing a vector as a stack"
@@ -32,4 +37,6 @@
            (Then (= '( 2 1 3) stack))
            (Context "testing pop on a list"
                     (When stack (pop stack))
-                    (Then (= '(1 3) stack)))))
+                    (Then (= '(1 3) stack)))))
+
+