add test_clojure/data_structures.clj: tests for list

2 files changed, 51 insertions, 2 deletions

diff --git a/src/clojure/contrib/test_clojure.clj b/src/clojure/contrib/test_clojure.clj
index b6ec546c..6c262337 100644
--- a/src/clojure/contrib/test_clojure.clj
+++ b/src/clojure/contrib/test_clojure.clj
@@ -21,9 +21,10 @@
             :evaluation
             :predicates
             :logic
+            :data-structures
             :numbers
-            :for
-            :sequences])
+            :sequences
+            :for])
 
 (defn test-name
   [test]
diff --git a/src/clojure/contrib/test_clojure/data_structures.clj b/src/clojure/contrib/test_clojure/data_structures.clj
new file mode 100644
index 00000000..057c582f
--- /dev/null
+++ b/src/clojure/contrib/test_clojure/data_structures.clj
@@ -0,0 +1,48 @@
+;;  Copyright (c) Frantisek Sodomka. All rights reserved.  The use and
+;;  distribution terms for this software are covered by the Eclipse Public
+;;  License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can
+;;  be found in the file epl-v10.html at the root of this distribution.  By
+;;  using this software in any fashion, you are 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.test-clojure.data-structures
+  (:use clojure.contrib.test-is))
+
+
+(deftest test-list
+  (are (list? _)
+    ()
+    '()
+    (list)
+    (list 1 2 3)
+  )
+  (are (= _1 _2)
+    '() ()
+    (list) '()
+    (list 1) '(1)
+    (list 1 2) '(1 2)
+    
+    ; nesting
+    (list 1 (list 2 3) (list 3 (list 4 5 (list 6 (list 7))))) '(1 (2 3) (3 (4 5 (6 (7)))))
+
+    ; different data structures
+    (list true false nil) '(true false nil)
+    (list 1 2.5 2/3 "ab" \x 'cd :kw) '(1 2.5 2/3 "ab" \x cd :kw)
+    (list (list 1 2) [3 4] {:a 1 :b 2} #{:c :d}) '((1 2) [3 4] {:a 1 :b 2} #{:c :d})
+
+    ; evaluation
+    (list (+ 1 2) [(+ 2 3) 'a] (list (* 2 3) 8)) '(3 [5 a] (6 8))
+
+    ; special cases
+    (list nil) '(nil)
+    (list 1 nil) '(1 nil)
+    (list nil 2) '(nil 2)
+    (list ()) '(())
+    (list 1 ()) '(1 ())
+    (list () 2) '(() 2)
+  )
+  (is (not= (list 1 2) (list 2 1)))
+)
+