From 4f2c7bb5cf6828eb710fd18b603828ab295d0fa5 Mon Sep 17 00:00:00 2001 From: Stuart Halloway Date: Wed, 24 Jun 2009 01:08:56 -0400 Subject: gtic: move clojure tests and supporting libraries into clojure repos --- src/clojure/contrib/test_clojure/test_utils.clj | 33 ------------------------- 1 file changed, 33 deletions(-) delete mode 100644 src/clojure/contrib/test_clojure/test_utils.clj (limited to 'src/clojure/contrib/test_clojure/test_utils.clj') 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)))) - -- cgit v1.2.3-18-g5258