simon/adl-support
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Order-preserving-set

Browse source
This commit is contained in:
Simon Brooke 2018-09-30 14:38:57 +01:00
parent ab44e355f6
commit 3baa7c12a5
3 changed files with 25 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/adl_support/utils_test.clj
View file

@ -598,3 +598,9 @@
(is (= (key-names e2) #{"id" "shard"}))
(is (= (key-names e2 true) #{:id :shard})))))
(deftest order-preserving-set-tests
(testing "order-preserving-set"
(is (= '(:a) (order-preserving-set '(:a :a :a :a))))
(is (= '(:a) (order-preserving-set [:a :a :a :a])))
(is (= '(:a :b :c :d :e) (order-preserving-set '(:a :a :b :c :a :b :d :c :e))))))