Fix PersistentQueue equality

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>

1 files changed, 20 insertions, 0 deletions

diff --git a/test/clojure/test_clojure/data_structures.clj b/test/clojure/test_clojure/data_structures.clj
index 330bbed4..690bde4e 100644
--- a/test/clojure/test_clojure/data_structures.clj
+++ b/test/clojure/test_clojure/data_structures.clj
@@ -774,3 +774,23 @@
       (disj #{#{nil}} #{nil}) #{} ))
 
 
+;; *** Queues ***
+
+(deftest test-queues
+  (let [EMPTY clojure.lang.PersistentQueue/EMPTY]
+    (are [x y] (= x y)
+      EMPTY EMPTY
+      (into EMPTY (range 50)) (into EMPTY (range 50))
+      (range 5) (into EMPTY (range 5))
+      (range 1 6) (-> EMPTY
+                    (into (range 6))
+                    pop))
+    (are [x y] (not= x y)
+      (range 5) (into EMPTY (range 6))
+      (range 6) (into EMPTY (range 5))
+      (range 0 6) (-> EMPTY
+                    (into (range 6))
+                    pop)
+      (range 1 6) (-> EMPTY
+                    (into (range 7))
+                    pop))))