diff options
| author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-03-19 13:09:31 +0000 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-03-19 13:09:31 +0000 |
| commit | 8964e1902ae5254f2f9bfd988bab3418087dbfaa (patch) | |
| tree | e0c0efaa4d392e20906b2dabd97a93c40eaee177 | |
| parent | 647e3098d58e047968f6ecd09cc6697957726318 (diff) | |
monads: moved tests to test_contrib
| -rw-r--r-- | src/clojure/contrib/test_contrib.clj | 2 | ||||
| -rw-r--r-- | src/clojure/contrib/test_contrib/monads.clj (renamed from src/clojure/contrib/monads/test.clj) | 6 |
2 files changed, 3 insertions, 5 deletions
diff --git a/src/clojure/contrib/test_contrib.clj b/src/clojure/contrib/test_contrib.clj index 15337dbb..ef9d0b3b 100644 --- a/src/clojure/contrib/test_contrib.clj +++ b/src/clojure/contrib/test_contrib.clj @@ -15,7 +15,7 @@ (ns clojure.contrib.test-contrib (:use clojure.contrib.test-is)) -(def tests [:complex-numbers :str-utils :shell-out :test-graph :test-dataflow]) +(def tests [:complex-numbers :monads :str-utils :shell-out :test-graph :test-dataflow]) (defn test-name [test] diff --git a/src/clojure/contrib/monads/test.clj b/src/clojure/contrib/test_contrib/monads.clj index 8053b30a..8b251adf 100644 --- a/src/clojure/contrib/monads/test.clj +++ b/src/clojure/contrib/test_contrib/monads.clj @@ -1,7 +1,7 @@ ;; Test routines for monads.clj ;; by Konrad Hinsen -;; last updated March 2, 2009 +;; last updated March 19, 2009 ;; Copyright (c) Konrad Hinsen, 2008. All rights reserved. The use ;; and distribution terms for this software are covered by the Eclipse @@ -11,7 +11,7 @@ ;; 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.monads.test +(ns clojure.contrib.test-contrib.monads (:use [clojure.contrib.test-is :only (deftest are run-tests)] [clojure.contrib.monads :only (with-monad domonad m-lift m-seq m-chain @@ -55,5 +55,3 @@ '(nil 2 nil 4 nil 6 nil 8 nil 10) (pairs (for [n (range 5)] (when (odd? n) n))) '(nil nil (1 1) nil (1 3) nil nil nil (3 1) nil (3 3) nil nil))))) - -(run-tests) |