yogsototh/kibit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #129

Browse source
This commit is contained in:
Daniel Compton 2015-04-20 14:22:42 +12:00
commit 03997ac15a
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
test/kibit/test/collections.clj
View file

@ -22,4 +22,9 @@
'(update-in coll [k] f a b c) '(assoc coll k (f (coll k) a b c))
'(update-in coll [k] f a b c) '(assoc coll k (f (get coll k) a b c))
'(assoc-in coll [k1 k2] v) '(update-in coll [k1 k2] assoc v)
'(repeatedly 10 (constantly :foo)) '(take 10 (repeatedly (constantly :foo)))))
'(repeatedly 10 (constantly :foo)) '(take 10 (repeatedly (constantly :foo)))
;; some wrong simplifications happened in the past:
nil '(assoc coll k (assoc (coll k0) k1 a))
nil '(assoc coll k (assoc (get coll k0) k1 a))
nil '(assoc coll k (assoc (k0 coll) k1 a))))