diff options
| author | Nic Ferier <nic@ferrier.me.uk> | 2012-10-12 13:33:45 +0100 |
|---|---|---|
| committer | Nic Ferier <nic@ferrier.me.uk> | 2012-10-12 13:33:45 +0100 |
| commit | 620daf17899092ed2b9e368dfe66728271d07456 (patch) | |
| tree | 8c070e8fc90a9882d93935a20e8767ef7eb810e0 | |
| parent | b283bb7b54a719cd585895fd6c21e09bd54c93ee (diff) | |
add a test for kvplist->filter-keys
| -rw-r--r-- | kv-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/kv-tests.el b/kv-tests.el index f00071b..8721f51 100644 --- a/kv-tests.el +++ b/kv-tests.el @@ -143,4 +143,12 @@ '(:a1 value1 :a2 value2) (kvalist->plist '((a1 . value1)(a2 . value2)))))) +(ert-deftest kvplist->filter-keys () + (should + (equal + (list :key1 "value1" :key4 10) + (kvplist->filter-keys + (list :key1 "value1" :key2 t :key3 '(big list of symbols) :key4 10) + 'key1 'key4)))) + ;;; kv-tests.el ends here |