emacs-28 8002fcd: Fix socks test

[Lars Ingebrigtsen]

branch: emacs-28
commit 8002fcd4b9678cbd732c92f26e01751687211911
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix socks test
    
    * test/lisp/net/socks-tests.el (socks-tests-v4-basic): Fix failure
    under native-comp (bug#51308).
---
 test/lisp/net/socks-tests.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/lisp/net/socks-tests.el b/test/lisp/net/socks-tests.el
index 9079c1b..7fb8852 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