emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/popup 0bead7c 086/184: Use cl-lib functions instead of cl


From: ELPA Syncer
Subject: [nongnu] elpa/popup 0bead7c 086/184: Use cl-lib functions instead of cl in tests
Date: Wed, 6 Oct 2021 00:01:13 -0400 (EDT)

branch: elpa/popup
commit 0bead7c4f7247633be3c9f6e70e05ba3569ec1f2
Author: Ryan Mulligan <ryan@ryantm.com>
Commit: Ryan Mulligan <ryan@ryantm.com>

    Use cl-lib functions instead of cl in tests
---
 tests/popup-test.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/tests/popup-test.el b/tests/popup-test.el
index d3ed9a7..4ff313c 100644
--- a/tests/popup-test.el
+++ b/tests/popup-test.el
@@ -2,7 +2,7 @@
 
 (require 'popup)
 ;; for "every" function
-(require 'cl)
+(require 'cl-lib)
 
 (when (< (frame-width) (length "long long long long line"))
   (set-frame-size (selected-frame) 80 35))
@@ -34,7 +34,7 @@ batch mode."
       (let ((strings (split-string str "\n")))
         (when (search-forward (car strings) nil t)
           (goto-char (match-beginning 0))
-          (every
+          (cl-every
            'identity
            (mapcar
             (lambda (elem)
@@ -43,9 +43,9 @@ batch mode."
             (cdr strings))))))))
 
 (defun popup-test-helper-buffer-contents ()
-  (loop with start = (point-min)
+  (cl-loop with start = (point-min)
         with contents
-        for overlay in (sort* (overlays-in (point-min) (point-max))
+        for overlay in (cl-sort (overlays-in (point-min) (point-max))
                               '< :key 'overlay-start)
         for overlay-start = (overlay-start overlay)
         for overlay-end = (overlay-end overlay)
@@ -561,7 +561,7 @@ Baz"))
 (ert-deftest popup-test-scroll-down ()
   (popup-test-with-common-setup
     (setq popup
-          (popup-cascade-menu (loop for x to 100 collect (format "Foo%d" x))
+          (popup-cascade-menu (cl-loop for x to 100 collect (format "Foo%d" x))
                               :nowait t :height 10 :margin t :scroll-bar t))
     (should (popup-test-helper-rectangle-match "\
 Foo0
@@ -583,7 +583,7 @@ Foo2"))
 (ert-deftest popup-test-scroll-up ()
   (popup-test-with-common-setup
     (setq popup
-          (popup-cascade-menu (loop for x to 100 collect (format "Foo%d" x))
+          (popup-cascade-menu (cl-loop for x to 100 collect (format "Foo%d" x))
                               :nowait t :height 10 :margin t :scroll-bar t))
     (should (popup-test-helper-rectangle-match "\
 Foo0



reply via email to

[Prev in Thread] Current Thread [Next in Thread]