added test for kvplist->alist

spacebat · Dec 31, 2012 · 8c11a41 · 8c11a41
1 parent 67606a0
commit 8c11a41
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/kv-tests.el b/kv-tests.el
@@ -146,7 +146,14 @@
   (should
    (equal
     '(:a1 value1 :a2 value2)
-    (kvalist->plist '((a1 . value1)(a2 . value2))))))
+    (kvalist->plist '((a1 . value1) (a2 . value2))))))
+
+(ert-deftest kvplist->alist ()
+  "Make plists into alists."
+  (should
+   (equal
+    '((a1 . value1) (a2 . value2))
+    (kvplist->alist '(:a1  value1 :a2 value2)))))
 
 (ert-deftest kvplist->filter-keys ()
   (should