Moved old test into t_canary

marick · Apr 29, 2011 · c1de8a0 · c1de8a0
1 parent a7cc8fd
commit c1de8a0
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/test/behaviors/t_canary.clj b/test/behaviors/t_canary.clj
@@ -41,3 +41,11 @@
    (provided
      (all-procedures) => [...procedure...] ))
 
+(unfinished f)
+(against-background [ (f 1) => 2 ]
+  (after-silently 
+   (fact "prerequisites can be used within checks"
+     (against-background (around :checks (let [x 1] ?form)))
+     (+ (f x) 2) => 4)
+   (fact (only-passes? 1) => truthy)))
+