aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/test_clojure/test_utils.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/test_clojure/test_utils.clj')
-rw-r--r--src/clojure/contrib/test_clojure/test_utils.clj33
1 files changed, 0 insertions, 33 deletions
diff --git a/src/clojure/contrib/test_clojure/test_utils.clj b/src/clojure/contrib/test_clojure/test_utils.clj
deleted file mode 100644
index fc858f2d..00000000
--- a/src/clojure/contrib/test_clojure/test_utils.clj
+++ /dev/null
@@ -1,33 +0,0 @@
-;; Copyright (c) Frantisek Sodomka. All rights reserved. The use and
-;; distribution terms for this software are covered by the Eclipse Public
-;; License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can
-;; be found in the file epl-v10.html at the root of this distribution. By
-;; using this software in any fashion, you are agreeing to be bound by the
-;; terms of this license. You must not remove this notice, or any other,
-;; from this software.
-
-(ns clojure.contrib.test-clojure.test-utils
- (:use [clojure.contrib.combinatorics :only (combinations)]))
-
-
-(defn exception
- "Use this function to ensure that execution of a program doesn't
- reach certain point."
- []
- (throw (new Exception "Exception which should never occur")))
-
-
-(defmacro all-are
- "Test all-with-all.
- (all-are (= _1 _2)
- a b c)
- =>
- (do
- (is (= a b))
- (is (= a c))
- (is (= b c)))"
- [expr & args]
- (concat
- (list 'clojure.contrib.template/do-template (list 'clojure.contrib.test-is/is expr))
- (apply concat (combinations args 2))))
-