diff options
author | Nic Ferier <nic@ferrier.me.uk> | 2013-04-07 14:18:15 +0100 |
---|---|---|
committer | Nic Ferier <nic@ferrier.me.uk> | 2013-04-07 14:18:15 +0100 |
commit | b227839532b7858ad5b70733dcfadf0653ce2e7f (patch) | |
tree | 79afbafd911fab3deafcd67ef2d16d060e22cd8a /kv-tests.el | |
parent | 688ba7a0e82068598c3f5773c58515a6bb01380f (diff) |
add transform option to kvalist-keys->symbols
Diffstat (limited to 'kv-tests.el')
-rw-r--r-- | kv-tests.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/kv-tests.el b/kv-tests.el index adbaa49..ed97035 100644 --- a/kv-tests.el +++ b/kv-tests.el @@ -63,7 +63,13 @@ (equal '((a . 10)(\10 . 20)(\(a\ b\ c\) . 30)) (kvalist-keys->symbols - '(("a" . 10)(10 . 20)((a b c) . 30)))))) + '(("a" . 10)(10 . 20)((a b c) . 30))))) + (should + (equal + '((a . 10)(\10 . 20)(\(a\ b\ c\) . 30)) + (kvalist-keys->symbols + '(("A" . 10)(10 . 20)((a b c) . 30)) + :first-fn 'downcase)))) (ert-deftest kvassoc= () (should |