[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3d9f20c 1/2: Add test for add-to-ordered-list
From: |
Lars Ingebrigtsen |
Subject: |
master 3d9f20c 1/2: Add test for add-to-ordered-list |
Date: |
Wed, 30 Dec 2020 23:28:59 -0500 (EST) |
branch: master
commit 3d9f20cfcf647063e62ba12187cf3b4bcd4d9685
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Add test for add-to-ordered-list
---
test/lisp/subr-tests.el | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 25da195..3154135 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -597,6 +597,22 @@ See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=19350."
(undo-boundary)
(undo)
(should (equal (buffer-string) ""))))
+
+(defvar subr--ordered nil)
+
+(ert-deftest subr--add-to-ordered-list ()
+ (setq subr--ordered nil)
+ (add-to-ordered-list 'subr--ordered 'b 2)
+ (should (equal subr--ordered '(b)))
+ (add-to-ordered-list 'subr--ordered 'c 3)
+ (should (equal subr--ordered '(b c)))
+ (add-to-ordered-list 'subr--ordered 'a 1)
+ (should (equal subr--ordered '(a b c)))
+ (add-to-ordered-list 'subr--ordered 'e)
+ (should (equal subr--ordered '(a b c e)))
+ (add-to-ordered-list 'subr--ordered 'd 4)
+ (should (equal subr--ordered '(a b c d e))))
+
;;; Apropos.