Browse files

test for kvcmp

  • Loading branch information...
1 parent 6885dd4 commit 3de114ba9e541e332bca83242c8a777e07672106 @nicferrier committed Sep 15, 2012
Showing with 11 additions and 0 deletions.
  1. +11 −0 kv-tests.el
View
11 kv-tests.el
@@ -39,6 +39,17 @@
("z" . 20)
("a" . 20)))))
+(ert-deftest kvcmp ()
+ "Test the general cmp function."
+ (should
+ (equal
+ '((a . 10)(b . 20)(c . 5))
+ (sort '((a . 10)(b . 20)(c . 5)) 'kvcmp)))
+ (should
+ (equal
+ '((a . 10)(b . 20)(c . 5))
+ (sort '((b . 20)(c . 5)(a . 10)) 'kvcmp))))
+
(ert-deftest kvdotassoc ()
(should
(equal

0 comments on commit 3de114b

Please sign in to comment.