diff options
| author | Frantisek Sodomka <fsodomka@gmail.com> | 2009-03-18 17:05:41 +0000 |
|---|---|---|
| committer | Frantisek Sodomka <fsodomka@gmail.com> | 2009-03-18 17:05:41 +0000 |
| commit | 7a688087c8afebeaa743fe5c064da54a2e8e360f (patch) | |
| tree | f89e7dbd74de3922cf0d47f8ca6f58c298f8347b /src/clojure/contrib/test_clojure | |
| parent | 334ad56890518ddd27c1327a25c91f8db873e417 (diff) | |
test-clojure: added cases for nil non-equality
Diffstat (limited to 'src/clojure/contrib/test_clojure')
| -rw-r--r-- | src/clojure/contrib/test_clojure/data_structures.clj | 7 | ||||
| -rw-r--r-- | src/clojure/contrib/test_clojure/sequences.clj | 3 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/clojure/contrib/test_clojure/data_structures.clj b/src/clojure/contrib/test_clojure/data_structures.clj index 349b325a..bdf5578e 100644 --- a/src/clojure/contrib/test_clojure/data_structures.clj +++ b/src/clojure/contrib/test_clojure/data_structures.clj @@ -28,6 +28,13 @@ \space "" #"" () [] #{} {} + (lazy-seq nil) ; SVN 1292: fixed (= (lazy-seq nil) nil) + (lazy-seq ()) + (lazy-seq []) + (lazy-seq {}) + (lazy-seq #{}) + (lazy-seq "") + (lazy-seq (into-array [])) (new Object) ) ; numbers equality across types (see tests below - NOT IMPLEMENTED YET) diff --git a/src/clojure/contrib/test_clojure/sequences.clj b/src/clojure/contrib/test_clojure/sequences.clj index 2f7d34d5..e990f5c8 100644 --- a/src/clojure/contrib/test_clojure/sequences.clj +++ b/src/clojure/contrib/test_clojure/sequences.clj @@ -36,9 +36,6 @@ (lazy-seq []) (lazy-seq [1 2])) - ; SVN 1292: fixed (= (lazy-seq nil) nil) - (is (not= (lazy-seq nil) nil)) - (are (= _1 _2) (lazy-seq nil) () (lazy-seq [nil]) '(nil) |