diff options
author | Stuart Sierra <mail@stuartsierra.com> | 2010-01-20 16:06:38 -0500 |
---|---|---|
committer | Stuart Sierra <mail@stuartsierra.com> | 2010-01-20 16:06:38 -0500 |
commit | a03b324ed975f371618e3e67801c9b880f377e9e (patch) | |
tree | 4dce9514a6358366c9916e5742f0a0fd6cd3d222 | |
parent | 5a9c017b14507dbdf4bb9c83faa7bf61a3a455d5 (diff) |
Remove tests for clojure.contrib.walk (obsolete)
-rw-r--r-- | src/test/clojure/clojure/contrib/test_contrib/walk.clj | 34 |
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 |