diff options
Diffstat (limited to 'src/clojure/contrib/test_contrib/test_is_fixtures.clj')
-rw-r--r-- | src/clojure/contrib/test_contrib/test_is_fixtures.clj | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/src/clojure/contrib/test_contrib/test_is_fixtures.clj b/src/clojure/contrib/test_contrib/test_is_fixtures.clj deleted file mode 100644 index 218c45d5..00000000 --- a/src/clojure/contrib/test_contrib/test_is_fixtures.clj +++ /dev/null @@ -1,42 +0,0 @@ -;;; test_is_fixtures.clj: unit tests for fixtures in test_is.clj - -;; by Stuart Sierra, http://stuartsierra.com/ -;; March 28, 2009 - -;; Copyright (c) Stuart Sierra, 2009. 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-contrib.test-is-fixtures - (:use clojure.contrib.test-is)) - -(declare *a* *b* *c* *d*) - -(defn fixture-a [f] - (binding [*a* 3] (f))) - -(defn fixture-b [f] - (binding [*b* 5] (f))) - -(defn fixture-c [f] - (binding [*c* 7] (f))) - -(defn fixture-d [f] - (binding [*d* 11] (f))) - -(use-fixtures :once fixture-a fixture-b) - -(use-fixtures :each fixture-c fixture-d) - -(deftest can-use-once-fixtures - (is (= 3 *a*)) - (is (= 5 *b*))) - -(deftest can-use-each-fixtures - (is (= 7 *c*)) - (is (= 11 *d*))) |