aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/test_clojure/test_utils.clj
diff options
context:
space:
mode:
authorFrantisek Sodomka <fsodomka@gmail.com>2009-05-14 20:27:45 +0000
committerFrantisek Sodomka <fsodomka@gmail.com>2009-05-14 20:27:45 +0000
commitc78f45d08b62f9b53b1503d1e9c83e6d7adca83f (patch)
treef5f54d5c413dbd5a97ae2583bbf19ed14a087550 /src/clojure/contrib/test_clojure/test_utils.clj
parent585ef55bb7996bd86c11daad1877ef12ddb783fb (diff)
test-clojure: common helper functions in test-utils; control: do
Diffstat (limited to 'src/clojure/contrib/test_clojure/test_utils.clj')
-rw-r--r--src/clojure/contrib/test_clojure/test_utils.clj18
1 files changed, 18 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_clojure/test_utils.clj b/src/clojure/contrib/test_clojure/test_utils.clj
new file mode 100644
index 00000000..6fe22161
--- /dev/null
+++ b/src/clojure/contrib/test_clojure/test_utils.clj
@@ -0,0 +1,18 @@
+;; 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")))
+