From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 21 Oct 2021 04:06:13 +0000 (+0200)
Subject: Fix socks test
X-Git-Tag: emacs-28.0.90~230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8002fcd4b9;p=emacs.git

Fix socks test

* test/lisp/net/socks-tests.el (socks-tests-v4-basic): Fix failure
under native-comp (bug#51308).
---

diff --git a/test/lisp/net/socks-tests.el b/test/lisp/net/socks-tests.el
index 9079c1bef2a..7fb885235c0 100644
--- a/test/lisp/net/socks-tests.el
+++ b/test/lisp/net/socks-tests.el
@@ -203,7 +203,7 @@ Vectors must match verbatim.  Strings are considered regex patterns.")
                    (should (equal host "example.com"))
                    (list 93 184 216 34)))
                 ((symbol-function 'user-full-name)
-                 (lambda () "foo")))
+                 (lambda (&optional _) "foo")))
         (socks-tests-perform-hello-world-http-request)))))
 
 ;; Replace first pattern below with ([5 3 0 1 2] . [5 2]) to validate