aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStuart Sierra <mail@stuartsierra.com>2010-01-20 16:06:38 -0500
committerStuart Sierra <mail@stuartsierra.com>2010-01-20 16:06:38 -0500
commita03b324ed975f371618e3e67801c9b880f377e9e (patch)
tree4dce9514a6358366c9916e5742f0a0fd6cd3d222
parent5a9c017b14507dbdf4bb9c83faa7bf61a3a455d5 (diff)
Remove tests for clojure.contrib.walk (obsolete)
-rw-r--r--src/test/clojure/clojure/contrib/test_contrib/walk.clj34
1 files changed, 0 insertions, 34 deletions
diff --git a/src/test/clojure/clojure/contrib/test_contrib/walk.clj b/src/test/clojure/clojure/contrib/test_contrib/walk.clj
deleted file mode 100644
index 9e79f8d6..00000000
--- a/src/test/clojure/clojure/contrib/test_contrib/walk.clj
+++ /dev/null
@@ -1,34 +0,0 @@
-(ns clojure.contrib.test-contrib.walk
- (:require [clojure.contrib.walk :as w])
- (:use clojure.test))
-
-(deftest t-prewalk-replace
- (is (= (w/prewalk-replace {:a :b} [:a {:a :a} (list 3 :c :a)])
- [:b {:b :b} (list 3 :c :b)])))
-
-(deftest t-postwalk-replace
- (is (= (w/postwalk-replace {:a :b} [:a {:a :a} (list 3 :c :a)])
- [:b {:b :b} (list 3 :c :b)])))
-
-(deftest t-stringify-keys
- (is (= (w/stringify-keys {:a 1, nil {:b 2 :c 3}, :d 4})
- {"a" 1, nil {"b" 2 "c" 3}, "d" 4})))
-
-(deftest t-prewalk-order
- (is (= (let [a (atom [])]
- (w/prewalk (fn [form] (swap! a conj form) form)
- [1 2 {:a 3} (list 4 [5])])
- @a)
- [[1 2 {:a 3} (list 4 [5])]
- 1 2 {:a 3} [:a 3] :a 3 (list 4 [5])
- 4 [5] 5])))
-
-(deftest t-postwalk-order
- (is (= (let [a (atom [])]
- (w/postwalk (fn [form] (swap! a conj form) form)
- [1 2 {:a 3} (list 4 [5])])
- @a)
- [1 2
- :a 3 [:a 3] {:a 3}
- 4 5 [5] (list 4 [5])
- [1 2 {:a 3} (list 4 [5])]]))) \ No newline at end of file