[elpa] externals/company b2003cf 2/2: Fix some warnings in tests

[ELPA Syncer]

branch: externals/company
commit b2003cf4ba474cfbbb3316137e1fa591537b89ad
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Fix some warnings in tests
    
    #1161
---
 test/frontends-tests.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/test/frontends-tests.el b/test/frontends-tests.el
index 8d8336e..c07e0ad 100644
--- a/test/frontends-tests.el
+++ b/test/frontends-tests.el
@@ -150,7 +150,7 @@
 (ert-deftest company-create-lines-combines-quick-access-on-the-left-and-icons 
()
   (let ((company-show-quick-access 'left)
         (company-candidates '("x" "y" "z"))
-        (company-format-margin-function (lambda (candidate selected)
+        (company-format-margin-function (lambda (_candidate _selected)
                                           "X"))
         (company-candidates-length 3)
         (company-backend (lambda (c &rest _) (pcase c (`kind 'class)))))
@@ -270,8 +270,7 @@
          (company-candidates '("ArrayList"))
          (company-candidates-length 1)
          (company-tooltip-maximum-width 7)
-         (company-package-root default-directory)
-         (company-format-margin-function (lambda (candidate selected)
+         (company-format-margin-function (lambda (_candidate _selected)
                                            "X"))
          (company-backend (lambda (c &rest _) (pcase c (`kind 'class)))))
     (should (ert-equal-including-properties