diff options
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 |