[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/company 2fefdc7ce3 02/30: Fix test failures
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/company 2fefdc7ce3 02/30: Fix test failures |
|
Date: |
Sat, 13 Jul 2024 00:57:49 -0400 (EDT) |
branch: externals/company
commit 2fefdc7ce334b6e724ce91cf1ff69cec50dbe24a
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>
Fix test failures
---
test/async-tests.el | 22 ++++++++--------
test/core-tests.el | 76 ++++++++++++++++++++++++++---------------------------
2 files changed, 49 insertions(+), 49 deletions(-)
diff --git a/test/async-tests.el b/test/async-tests.el
index 6e350f0204..b4d16ab62e 100644
--- a/test/async-tests.el
+++ b/test/async-tests.el
@@ -21,7 +21,7 @@
(require 'company-tests)
-(defun company-async-backend (command &optional _)
+(defun company-async-backend (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
@@ -98,7 +98,7 @@
(company-mode)
(let (company-frontends
(company-backends
- (list (lambda (command &optional arg)
+ (list (lambda (command &optional arg &rest _)
(pcase command
(`prefix (buffer-substring (point-min) (point)))
(`candidates
@@ -141,14 +141,14 @@
(ert-deftest company-multi-backend-merges-deferred-candidates ()
(with-temp-buffer
- (let* ((immediate (lambda (command &optional _)
+ (let* ((immediate (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
(cons :async
(lambda (cb) (funcall cb '("f"))))))))
(company-backend (list 'ignore
- (lambda (command &optional arg)
+ (lambda (command &optional arg &rest _)
(pcase command
(`prefix "foo")
(`candidates
@@ -158,7 +158,7 @@
(run-with-timer
0.01 nil
(lambda () (funcall cb '("a"
"b")))))))))
- (lambda (command &optional _)
+ (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates '("c" "d" "e"))))
@@ -171,19 +171,19 @@
(ert-deftest company-multi-backend-merges-deferred-candidates-2 ()
(with-temp-buffer
- (let ((company-backend (list (lambda (command &optional _)
+ (let ((company-backend (list (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
(cons :async
(lambda (cb) (funcall cb '("a"
"b")))))))
- (lambda (command &optional _)
+ (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
(cons :async
(lambda (cb) (funcall cb '("c"
"d")))))))
- (lambda (command &optional _)
+ (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
@@ -195,13 +195,13 @@
(ert-deftest company-multi-backend-merges-deferred-candidates-3 ()
(with-temp-buffer
- (let ((company-backend (list (lambda (command &optional _)
+ (let ((company-backend (list (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
(cons :async
(lambda (cb) (funcall cb '("a"
"b")))))))
- (lambda (command &optional _)
+ (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
@@ -211,7 +211,7 @@
0.01 nil
(lambda ()
(funcall cb '("c" "d")))))))))
- (lambda (command &optional _)
+ (lambda (command &rest _)
(pcase command
(`prefix "foo")
(`candidates
diff --git a/test/core-tests.el b/test/core-tests.el
index ece736a370..71b9637245 100644
--- a/test/core-tests.el
+++ b/test/core-tests.el
@@ -35,7 +35,7 @@
(company-mode)
(let (company-frontends
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc" "abd")))))))
@@ -51,7 +51,7 @@
(let (company-frontends
(company-abort-on-unique-match t)
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc")))))))
@@ -65,7 +65,7 @@
(let (company-frontends
company-abort-on-unique-match
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc")))))))
@@ -78,7 +78,7 @@
(company-mode)
(let (company-frontends
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc")))))))
@@ -147,28 +147,28 @@
(ert-deftest company-multi-backend-remembers-candidate-backend ()
(let ((company-backend
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix "")
(ignore-case nil)
(annotation "1")
(candidates '("a" "c"))
(post-completion "13")))
- (lambda (command &optional _)
+ (lambda (command &rest _)
(cl-case command
(prefix "")
(ignore-case t)
(annotation "2")
(candidates '("b" "d"))
(post-completion "42")))
- (lambda (command &optional _)
+ (lambda (command &rest _)
(cl-case command
(prefix "")
(annotation "3")
(candidates '("e"))
(post-completion "74"))))))
(company-call-backend 'set-min-prefix 0)
- (let ((candidates (company-calculate-candidates "" nil)))
+ (let ((candidates (company-calculate-candidates "" nil nil)))
(should (equal candidates '("a" "b" "c" "d" "e")))
(should (equal t (company-call-backend 'ignore-case)))
(should (equal "1" (company-call-backend 'annotation (nth 0
candidates))))
@@ -179,11 +179,11 @@
(should (equal "74" (company-call-backend 'post-completion (nth 4
candidates)))))))
(ert-deftest company-multi-backend-handles-keyword-with ()
- (let ((primo (lambda (command &optional _)
+ (let ((primo (lambda (command &rest _)
(cl-case command
(prefix "a")
(candidates '("abb" "abc" "abd")))))
- (secundo (lambda (command &optional _)
+ (secundo (lambda (command &rest _)
(cl-case command
(prefix "a")
(candidates '("acc" "acd"))))))
@@ -196,15 +196,15 @@
(company-call-backend 'candidates "a"))))))
(ert-deftest company-multi-backend-handles-keyword-separate ()
- (let ((one (lambda (command &optional _)
+ (let ((one (lambda (command &rest _)
(cl-case command
(prefix "a")
(candidates (list "aa" "ca" "ba")))))
- (two (lambda (command &optional _)
+ (two (lambda (command &rest _)
(cl-case command
(prefix "a")
(candidates (list "bb" "ab")))))
- (tri (lambda (command &optional _)
+ (tri (lambda (command &rest _)
(cl-case command
(prefix "a")
(sorted t)
@@ -217,15 +217,15 @@
(company-call-backend 'candidates "a"))))))
(ert-deftest company-multi-backend-handles-length-overrides-separately ()
- (let ((one (lambda (command &optional _)
+ (let ((one (lambda (command &rest _)
(cl-case command
(prefix "a")
(candidates (list "aa" "ca" "ba")))))
- (two (lambda (command &optional _)
+ (two (lambda (command &rest _)
(cl-case command
(prefix (cons "a" 2))
(candidates (list "bb" "ab")))))
- (tri (lambda (command &optional _)
+ (tri (lambda (command &rest _)
(cl-case command
(prefix "")
(candidates (list "cc" "bc" "ac"))))))
@@ -239,15 +239,15 @@
(company-call-backend 'candidates "a"))))))
(ert-deftest company-multi-backend-handles-clears-cache-when-needed ()
- (let* ((one (lambda (command &optional _)
+ (let* ((one (lambda (command &rest _)
(cl-case command
(prefix "aa")
(candidates (list "aa")))))
- (two (lambda (command &optional _)
+ (two (lambda (command &rest _)
(cl-case command
(prefix (cons "aa" t))
(candidates (list "aab" )))))
- (tri (lambda (command &optional _)
+ (tri (lambda (command &rest _)
(cl-case command
(prefix "")
(candidates (list "aac")))))
@@ -261,23 +261,23 @@
(company-call-backend 'candidates "aa"))))))
(ert-deftest company-multi-backend-chooses-longest-prefix-length ()
- (let* ((one (lambda (command &optional _)
+ (let* ((one (lambda (command &rest _)
(cl-case command
(prefix "aa")
(candidates (list "aa")))))
- (two (lambda (command &optional _)
+ (two (lambda (command &rest _)
(cl-case command
(prefix (cons "aa" t))
(candidates (list "aab" )))))
- (tri (lambda (command &optional _)
+ (tri (lambda (command &rest _)
(cl-case command
(prefix "")
(candidates (list "aac")))))
- (fur (lambda (command &optional _)
+ (fur (lambda (command &rest _)
(cl-case command
(prefix (cons "aa" 3))
(candidates (list "aac")))))
- (fiv (lambda (command &optional _)
+ (fiv (lambda (command &rest _)
(cl-case command
(prefix (cons "aa" 1))
(candidates (list "aac")))))
@@ -306,7 +306,7 @@
(company-begin-backend #'ignore))
(let (company-frontends
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix "a")
(candidates '("a" "ab" "ac")))))))
@@ -321,7 +321,7 @@
(let (company-frontends
(company-require-match 'company-explicit-action-p)
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc" "abd")))))))
@@ -340,7 +340,7 @@
(company-minimum-prefix-length 2)
(company-require-match 'company-explicit-action-p)
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc" "abd")))))))
@@ -360,7 +360,7 @@
company-insertion-on-trigger
(company-require-match t)
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (company-grab-word))
(candidates '("abc" "ab" "abd"))
@@ -383,7 +383,7 @@
(let (company-frontends
(company-require-match t)
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (if (> (point) 2)
'stop
@@ -403,7 +403,7 @@
(let (company-frontends
company-begin-commands
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc" "abd")))))))
@@ -425,7 +425,7 @@
(let (company-frontends
company-begin-commands
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abc" "abd")))))))
@@ -447,7 +447,7 @@
(let (company-frontends
(company-minimum-prefix-length 2)
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abcd" "abef")))))))
@@ -465,7 +465,7 @@
(company-insertion-on-trigger 'company-explicit-action-p)
(company-insertion-triggers '(? ))
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abcd" "abef")))))))
@@ -484,7 +484,7 @@
(company-insertion-on-trigger t)
(company-insertion-triggers '(? ?\)))
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring 5 (point)))
(candidates '("abcd" "abef"))))))
@@ -509,7 +509,7 @@
(company-insertion-triggers '(? ))
(company-minimum-prefix-length 2)
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abcd" "abef")))))))
@@ -533,7 +533,7 @@
(company-mode)
(let (company-frontends
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abcd" "abef"))
@@ -553,7 +553,7 @@
(company-mode)
(let (company-frontends
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("abcd" "abef"))
@@ -569,7 +569,7 @@
(company-mode)
(let (company-frontends
(company-backends
- (list (lambda (command &optional _)
+ (list (lambda (command &rest _)
(cl-case command
(prefix (buffer-substring (point-min) (point)))
(candidates '("tea-cup" "teal-color")))))))
- [elpa] externals/company 22551866cc 03/30: Switch to non-obsolete function, (continued)
- [elpa] externals/company 22551866cc 03/30: Switch to non-obsolete function, ELPA Syncer, 2024/07/13
- [elpa] externals/company b5db1934ce 08/30: company--capf-post-completion: Make sure to replace the suffix, ELPA Syncer, 2024/07/13
- [elpa] externals/company 01e82364bf 23/30: company-post-command: Refresh more often, ELPA Syncer, 2024/07/13
- [elpa] externals/company 78ed92db96 14/30: Fix "Attempt to modify read-only object", ELPA Syncer, 2024/07/13
- [elpa] externals/company ff6107bde3 04/30: company-inhibit-inside-symbols: New option, ELPA Syncer, 2024/07/13
- [elpa] externals/company 426e1830ff 06/30: company--unique-match-p: Also include suffix, ELPA Syncer, 2024/07/13
- [elpa] externals/company d7e77b9673 01/30: #1106 #340 Complete inside symbols, ELPA Syncer, 2024/07/13
- [elpa] externals/company 7ed2baeedd 05/30: Merge branch 'master' into completion_inside_symbol, ELPA Syncer, 2024/07/13
- [elpa] externals/company ebe5244443 07/30: Merge branch 'master' into completion_inside_symbol, ELPA Syncer, 2024/07/13
- [elpa] externals/company 10fcb21d46 09/30: Remove suffix after completion by company-dabbrev-code too, ELPA Syncer, 2024/07/13
- [elpa] externals/company 2fefdc7ce3 02/30: Fix test failures,
ELPA Syncer <=
- [elpa] externals/company 436b0d6247 10/30: New backend command `adjust-boundaries`, ELPA Syncer, 2024/07/13
- [elpa] externals/company 477799b362 18/30: Make suffix matching use "proper suffix" logic by default, ELPA Syncer, 2024/07/13
- [elpa] externals/company a011dbd892 27/30: Update company-files tests, ELPA Syncer, 2024/07/13
- [elpa] externals/company 277640481a 19/30: Render the "preview" overlay over the matching suffix text, ELPA Syncer, 2024/07/13
- [elpa] externals/company 54b0148ce4 16/30: Fix bytecomp warnings, ELPA Syncer, 2024/07/13
- [elpa] externals/company d4e01ed948 21/30: #1474 change the reference in NEWS, ELPA Syncer, 2024/07/13
- [elpa] externals/company 31f7ad52e4 30/30: Merge pull request #1474 from company-mode/completion_inside_symbol, ELPA Syncer, 2024/07/13
- [elpa] externals/company a253fa5505 25/30: company-files--prefix: Capture suffix as well, ELPA Syncer, 2024/07/13
- [elpa] externals/company bbe0bc031a 13/30: company--multi-backend-adapter: Support suffix and `adjust-boundaries`, ELPA Syncer, 2024/07/13
- [elpa] externals/company c8a06ff3bf 11/30: Support completion styles in company-etags too, ELPA Syncer, 2024/07/13