made keyword->symbol tolerant of non-keyword symbols

added test for keyword->symbol

1 files changed, 16 insertions, 0 deletions

diff --git a/kv-tests.el b/kv-tests.el
index 7b83ebb..4a4823f 100644
--- a/kv-tests.el
+++ b/kv-tests.el
@@ -141,6 +141,22 @@
     (dotassq 'a.b.c '((a . ((b . ((c . 10)))))))
     10)))
 
+(ert-deftest keyword->symbol ()
+  "Convert keyword into a symbol without the leading `:'"
+  (should
+   (eq
+    'key
+    (keyword->symbol :key)))
+  (should
+   (eq
+    'key
+    (keyword->symbol 'key)))
+  (let ((sym (gensym)))
+    (should
+     (eq
+      sym
+      (keyword->symbol sym)))))
+
 (ert-deftest kvalist->plist ()
   "Make alists into plists."
   (should