From d5f4c4cb9e406236e6aa8c0f1e65b7dcd0bf35af Mon Sep 17 00:00:00 2001 From: Stuart Halloway Date: Wed, 24 Jun 2009 00:29:41 -0400 Subject: gtic work-in-progress: test libraries moved over tests moved over build broken (next commits will break dependencies) --- test/clojure/contrib/test_clojure/test_utils.clj | 33 ++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 test/clojure/contrib/test_clojure/test_utils.clj (limited to 'test/clojure/contrib/test_clojure/test_utils.clj') diff --git a/test/clojure/contrib/test_clojure/test_utils.clj b/test/clojure/contrib/test_clojure/test_utils.clj new file mode 100644 index 00000000..fc858f2d --- /dev/null +++ b/test/clojure/contrib/test_clojure/test_utils.clj @@ -0,0 +1,33 @@ +;; 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)))) + -- cgit v1.2.3-18-g5258