diff options
| author | Frantisek Sodomka <fsodomka@gmail.com> | 2009-02-17 22:44:37 +0000 |
|---|---|---|
| committer | Frantisek Sodomka <fsodomka@gmail.com> | 2009-02-17 22:44:37 +0000 |
| commit | 24146f5f1b5c8b3e313ace303d3c4c7e3aea8f5d (patch) | |
| tree | 3f8fd3dbbe84911ef7e140af35c90ccb8d2f57cc /src/clojure/contrib/test_clojure | |
| parent | 81b9e71effbaf6aa2945cd684802d87c762cdcdd (diff) | |
Lazy: (seq? ()) => true
Diffstat (limited to 'src/clojure/contrib/test_clojure')
| -rw-r--r-- | src/clojure/contrib/test_clojure/predicates.clj | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/clojure/contrib/test_clojure/predicates.clj b/src/clojure/contrib/test_clojure/predicates.clj index 0a72a29b..fc7b41db 100644 --- a/src/clojure/contrib/test_clojure/predicates.clj +++ b/src/clojure/contrib/test_clojure/predicates.clj @@ -93,7 +93,8 @@ :empty-vector :vector :empty-map :map :empty-set :set] - seq? [:list] + + seq? [:empty-list :list] ; array? fn? [:fn] @@ -109,14 +110,20 @@ ;; Test all type predicates against all data types ;; +(defn- get-fn-name [f] + (str + (apply str (nthnext (first (.split (str f) "_")) + (count "clojure.core$"))) + "?")) + (deftest test-type-preds (doseq [tp type-preds] (doseq [dt sample-data] (if (some #(= % (first dt)) (second tp)) (is ((first tp) (second dt)) - (pr-str (list (first tp) (second dt)))) + (pr-str (list (get-fn-name (first tp)) (second dt)))) (is (not ((first tp) (second dt))) - (pr-str (list 'not (list (first tp) (second dt))))))))) + (pr-str (list 'not (list (get-fn-name (first tp)) (second dt))))))))) ;; Additional tests: |