diff options
Diffstat (limited to 'test/clojure/test_clojure')
-rw-r--r-- | test/clojure/test_clojure/clojure_set.clj | 25 |
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})) + |