summaryrefslogtreecommitdiff
path: root/test/clojure/test_clojure/clojure_set.clj
diff options
context:
space:
mode:
Diffstat (limited to 'test/clojure/test_clojure/clojure_set.clj')
-rw-r--r--test/clojure/test_clojure/clojure_set.clj25
1 files changed, 21 insertions, 4 deletions
diff --git a/test/clojure/test_clojure/clojure_set.clj b/test/clojure/test_clojure/clojure_set.clj
index 1aa745a4..8d511af4 100644
--- a/test/clojure/test_clojure/clojure_set.clj
+++ b/test/clojure/test_clojure/clojure_set.clj
@@ -187,11 +187,19 @@
#{} #{1}
#{1} #{1}
#{1 2} #{1 2}
- #{1 2} #{1 2 42})
+ #{1 2} #{1 2 42}
+ #{false} #{false}
+ #{nil} #{nil}
+ #{nil} #{nil false}
+ #{1 2 nil} #{1 2 nil 4})
(are [notsub super] (not (set/subset? notsub super))
#{1} #{}
#{2} #{1}
- #{1 3} #{1}))
+ #{1 3} #{1}
+ #{nil} #{false}
+ #{false} #{nil}
+ #{false nil} #{nil}
+ #{1 2 nil} #{1 2}))
(deftest test-superset?
(are [super sub] (set/superset? super sub)
@@ -199,8 +207,17 @@
#{1} #{}
#{1} #{1}
#{1 2} #{1 2}
- #{1 2 42} #{1 2})
+ #{1 2 42} #{1 2}
+ #{false} #{false}
+ #{nil} #{nil}
+ #{false nil} #{false}
+ #{1 2 4 nil false} #{1 2 nil})
(are [notsuper sub] (not (set/superset? notsuper sub))
#{} #{1}
#{2} #{1}
- #{1} #{1 3}))
+ #{1} #{1 3}
+ #{nil} #{false}
+ #{false} #{nil}
+ #{nil} #{false nil}
+ #{nil 2 3} #{false nil 2 3}))
+