Introduce assert-in.

mmcgrana · Dec 25, 2009 · f1f390a · f1f390a
1 parent 3a91843
commit f1f390a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/clj_unit/core_assertions.clj b/src/clj_unit/core_assertions.clj
@@ -30,6 +30,13 @@
                     (< actual (+ expected delta)))
     (format "Expected %s +-%s, got %s" expected delta actual)))
 
+(defn assert-in
+  "Assert that a value is one of given set."
+  [expected-from actual]
+  (assert-truth (contains? expected-from actual)
+    (format "Expected one of %s, got %s"
+      (pr-str expected-from) (pr-str actual))))
+
 (defn assert-that
   "Assert that a value is logically true - i.e. not nil or false."
   [val]