From unknown Sun Jun 15 01:06:32 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#36340 <36340@debbugs.gnu.org> To: bug#36340 <36340@debbugs.gnu.org> Subject: Status: Test failures when networking is disabled Reply-To: bug#36340 <36340@debbugs.gnu.org> Date: Sun, 15 Jun 2025 08:06:32 +0000 retitle 36340 Test failures when networking is disabled reassign 36340 guile submitter 36340 Cyprien Nicolas severity 36340 normal thanks From debbugs-submit-bounces@debbugs.gnu.org Sun Jun 23 07:44:41 2019 Received: (at submit) by debbugs.gnu.org; 23 Jun 2019 11:44:42 +0000 Received: from localhost ([127.0.0.1]:52932 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hf0vJ-0005e5-LV for submit@debbugs.gnu.org; Sun, 23 Jun 2019 07:44:41 -0400 Received: from lists.gnu.org ([209.51.188.17]:55858) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hf0vG-0005dx-Mr for submit@debbugs.gnu.org; Sun, 23 Jun 2019 07:44:40 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:37432) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hf0vF-0006yC-Is for bug-guile@gnu.org; Sun, 23 Jun 2019 07:44:38 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,URIBL_BLOCKED autolearn=disabled version=3.3.2 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hf0vE-0003tB-H6 for bug-guile@gnu.org; Sun, 23 Jun 2019 07:44:37 -0400 Received: from cubran.fulax.net ([2a03:7220:8081:7e00::1]:53452) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hf0vE-0003Wk-2J for bug-guile@gnu.org; Sun, 23 Jun 2019 07:44:36 -0400 Received: from [192.168.1.9] (static-176-139-30-77.ftth.abo.bbox.fr [176.139.30.77]) by cubran.fulax.net (Postfix) with ESMTPSA id 0CA319600B for ; Sun, 23 Jun 2019 11:44:27 +0000 (UTC) Authentication-Results: cubran.fulax.net; dmarc=none header.from=nicolas.tf DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=nicolas.tf; s=beta; t=1561290267; bh=XD1LbDW/ykmKAV3U7Xg6rBb0GpktVd0mVm+eiS2WYSE=; h=To:From:Subject:Date:From; b=fEeSn0A35Qb+N2s49gtBv3ce0/W2r3XYpAJyez03UVnNd6EfQMmAgFRVAKngRqPV1 y2cBXWdq4DMjIILzb0Ur+/xDLbL2MEgMTJBfpKNoD2It3In4ekUU2OpdlBvmHA27sH PEMdu/pVQf/7IkTU/U7bjTWDCt1wupaNwgNXEAQ0c3pNdj+ZAFzzFVYiZjQdfudUk1 Y2WVCCnuYrMW8WgECyvdmhdjM+mLBsLhk1CCQ6zDjnjfOiRC8GSX+e+Rjz2R04LBaP 8BMiFyEMWSmR6AlSZvB0NZ4qol98fyK6qQGGzot28mGBJFlpz4PQ4Hz0962VkNWxkE 0x7wAQHgo86DmeAhGUirk7yHNNPgi1N+WNrqV1yN9dp2xxWIpVRWsRe5q0gSuF37wQ APCllYOF8+rOJBeVyinvZo+AyJ522aX+9bB3Fb1cWsG4zN+gia4Mmv0/PdmqpnpbLT qDtgEQv4nJVKt41KIoeRdhdIZ/krMwJ/lsAzS45FFdn5SlznYKS2coZ0Nthc/MuMPv Zvagk0MEhAZlI01Kkyx6wgzcAbX6NENlwGA+WzBZmeaBpGeZHwR4bt1B+nSMEuW6Yf fLWBW/zBRCGaBCYXLVAJDDu7SzfApoRFRE8+mgvqz6rVjNLT4RPEcFMqsgZrLt6skk qINpGGgvKV5vV9D02VToEnFw= To: bug-guile@gnu.org From: Cyprien Nicolas Subject: Test failures when networking is disabled Message-ID: <52873187-7898-41ff-be3c-fd9fe2a8802b@nicolas.tf> Date: Sun, 23 Jun 2019 13:44:26 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.7.1 MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Language: en-US Content-Transfer-Encoding: 7bit X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2a03:7220:8081:7e00::1 X-Spam-Score: -1.3 (-) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.3 (--) Hello, Guile's configure script offers an option to disable networking support, but when disabled, some test won't pass. -----8<-----8<-----8<-----8<-----8<----- Running 00-repl-server.test ERROR: 00-repl-server.test: repl-server: simple expression - arguments: ((unbound-variable #f "Unbound variable: ~S" (make-socket-address) #f)) ERROR: 00-repl-server.test: repl-server: HTTP inter-protocol attack - arguments: ((unbound-variable #f "Unbound variable: ~S" (make-socket-address) #f)) ----->8----->8----->8----->8----->8----- The error is obviously related to the configure option. I have a patch for catching unbound-variable and throw unresolved instead, tested on 2.2 and 2.0 branches. Reference: https://bugs.gentoo.org/629004 That patch is enough for stable-2.0 but there is another failure in suspendable-ports in 2.2.5, as the suspendable-ports ice-9 module overrides accept and connect functions, missing when networking is disabled. -----8<-----8<-----8<-----8<-----8<----- $ guile-2.2 GNU Guile 2.2.5 Copyright (C) 1995-2019 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guile-user)> (use-modules (ice-9 suspendable-ports)) While compiling expression: In procedure public-lookup: No variable bound to accept in module (guile) ----->8----->8----->8----->8----->8----- Is guile configured with --disable-networking still a supported configuration? Thanks, Cyprien From debbugs-submit-bounces@debbugs.gnu.org Mon Jun 24 08:35:52 2019 Received: (at 36340) by debbugs.gnu.org; 24 Jun 2019 12:35:52 +0000 Received: from localhost ([127.0.0.1]:55755 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hfOCN-00048n-On for submit@debbugs.gnu.org; Mon, 24 Jun 2019 08:35:52 -0400 Received: from eggs.gnu.org ([209.51.188.92]:46802) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hfOCL-00048W-CP for 36340@debbugs.gnu.org; Mon, 24 Jun 2019 08:35:50 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:36550) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hfOCF-0006Os-1G; Mon, 24 Jun 2019 08:35:43 -0400 Received: from [2001:660:6102:320:e120:2c8f:8909:cdfe] (port=43584 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1hfOC8-0001v7-QL; Mon, 24 Jun 2019 08:35:38 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Cyprien Nicolas Subject: Re: bug#36340: Test failures when networking is disabled References: <52873187-7898-41ff-be3c-fd9fe2a8802b@nicolas.tf> Date: Mon, 24 Jun 2019 14:35:35 +0200 In-Reply-To: <52873187-7898-41ff-be3c-fd9fe2a8802b@nicolas.tf> (Cyprien Nicolas's message of "Sun, 23 Jun 2019 13:44:26 +0200") Message-ID: <878strb1pk.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 36340 Cc: 36340@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Hi Cyprien! :-) Cyprien Nicolas skribis: > Is guile configured with --disable-networking still a supported > configuration? In theory yes, but as you found out, it=E2=80=99s not well tested. The way we=E2=80=99d normally addressing in the test suite is by testing: (provided? 'socket) and/or: (provided? 'net-db) and throwing to unresolved or skipping tests altogether. Would you like to propose a patch that does that for all the instances that you found? Thanks! Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Sun Jul 07 09:26:51 2019 Received: (at 36340) by debbugs.gnu.org; 7 Jul 2019 13:26:51 +0000 Received: from localhost ([127.0.0.1]:56313 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hk7Br-0004Qn-71 for submit@debbugs.gnu.org; Sun, 07 Jul 2019 09:26:51 -0400 Received: from cubran.fulax.net ([91.224.149.126]:35629 ident=cubran) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hk7Bo-0004Qf-Qs for 36340@debbugs.gnu.org; Sun, 07 Jul 2019 09:26:50 -0400 Received: from [192.168.1.9] (static-176-139-30-77.ftth.abo.bbox.fr [176.139.30.77]) by cubran.fulax.net (Postfix) with ESMTPSA id D8D8596036; Sun, 7 Jul 2019 13:26:46 +0000 (UTC) Authentication-Results: cubran.fulax.net; dmarc=none header.from=nicolas.tf DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=nicolas.tf; s=beta; t=1562506006; bh=ufkNouHpgWpyT5SNdrFgkqk08lrDu7axUioZb99toyM=; h=Subject:To:Cc:References:From:Date:In-Reply-To:From; b=HuOvKuILaEc5bs+Ir2kNlA0pCO3wwVdz+zRFC7sa10XiTAld91SJhfw3oCMRzeEsz 2hW1fjFOkYpGkT8Z7slH272TbzA+vOqLtvK6mU9e4pBvy/UfHRZUreayjYb57rGopT 5M3mOLeaeJ5V1PPk/scNhWe9HQ8EOAo6xUMxLXHEHGvfp0p+kdBtXvF58Jcw2UEhqp 7NSnZRGVHkCOOwdLZzPvav0DX8tqiBsSu2ksq8QqVQJYoOKOyO8LU5Mfq9WjSjFsY7 bSRnMxRqmkZW9EZlrNF6WvdyVTIp+RTLoSl06nJeyKwHOQZOf9MELJgOOKYnsWk6Zf s26I5TV6NpZQgRq1uYctNwXFnxGhra2903/cr68XNRoPn6Y21xaSbAIdRcRP3Nv/NV jOjzx8MNIEhF2q/KinL7tAmze24nwAGpbbhebRckFAsH3DibrqIFDVpKkczfyEd0mg PSV8k/CLIJM9z7d8LxlJd1CSNKQ5QwnBFXGrGPSnmmURRwphm8Xi/4rmOAJHm3/4aD WM72T17TAu9oEtKydp+q4EW+bgXNJAuZAKH2ve0YL62j42hcFxXv6/Rt9w0rQkJ0xs Qmjff43jARfArt8nvNv6a8hMdiWSQ+/Jd0QsrKGnJF9QCzQcTQYm8SX1rB8QQOBuxX wIxbw7M6SXkrb9HtCdiYQi1g= Subject: Re: bug#36340: Test failures when networking is disabled To: =?UTF-8?Q?Ludovic_Court=c3=a8s?= References: <52873187-7898-41ff-be3c-fd9fe2a8802b@nicolas.tf> <878strb1pk.fsf@gnu.org> From: Cyprien Nicolas Message-ID: <7983c7cd-8c1c-3d8e-f35e-6204880ffb4f@nicolas.tf> Date: Sun, 7 Jul 2019 15:26:46 +0200 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.7.1 MIME-Version: 1.0 In-Reply-To: <878strb1pk.fsf@gnu.org> Content-Type: multipart/mixed; boundary="------------60E7FB9D4C5D81126F01399E" Content-Language: en-US X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 36340 Cc: 36340@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) This is a multi-part message in MIME format. --------------60E7FB9D4C5D81126F01399E Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit On 24/06/2019 14:35, Ludovic Courtès wrote: > Hi Cyprien! :-) > > Cyprien Nicolas skribis: > >> Is guile configured with --disable-networking still a supported >> configuration? > > In theory yes, but as you found out, it’s not well tested. > > The way we’d normally addressing in the test suite is by testing: > > (provided? 'socket) > > and/or: > > (provided? 'net-db) > > and throwing to unresolved or skipping tests altogether. > > Would you like to propose a patch that does that for all the instances > that you found? Do you mean also harmonizing current tests that uses (memq 'socket *features*) ; web-uri.test and/or (defined? 'AF_INET) ; 00-socket.test or only fixing failing ones? The attached path mimics net-db.test style for skipping tests for 00-repl-server.test (I hope the indentation is correct). However, we still have the ice-9 suspendable-ports module issue which compiles fine but fails to load (actually not related to tests). Thanks, --------------60E7FB9D4C5D81126F01399E Content-Type: text/x-patch; name="guile-tests-00-repl-server.patch" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="guile-tests-00-repl-server.patch" --- guile-2.2.6/test-suite/tests/00-repl-server.test.old 2017-04-14 23:26:40.000000000 +0200 +++ guile-2.2.6/test-suite/tests/00-repl-server.test 2019-07-07 15:14:59.681831790 +0200 @@ -105,47 +105,48 @@ ;;; Since we call 'primitive-fork', these tests must run before any ;;; tests that create threads. -(with-test-prefix "repl-server" +(if (provided? 'socket) + (with-test-prefix "repl-server" - (pass-if-equal "simple expression" - "scheme@(repl-server)> $1 = 42\n" - (with-repl-server socket - (read-until-prompt socket %last-line-before-prompt) - - ;; Wait until 'repl-reader' in boot-9 has written the prompt. - ;; Otherwise, if we write too quickly, 'repl-reader' checks for - ;; 'char-ready?' and doesn't print the prompt. - (match (select (list socket) '() (list socket) 3) - (((_) () ()) - (display "(+ 40 2)\n(quit)\n" socket) - (read-string socket))))) - - (pass-if "HTTP inter-protocol attack" ;CVE-2016-8606 - (with-repl-server socket - ;; Avoid SIGPIPE when the server closes the connection. - (sigaction SIGPIPE SIG_IGN) - - (read-until-prompt socket %last-line-before-prompt) - - ;; Simulate an HTTP inter-protocol attack. - (write-request (build-request (string->uri "http://localhost")) - socket) - - ;; Make sure the server reacts by closing the connection. If it - ;; fails to do that, this test hangs. - (catch 'system-error - (lambda () - (let loop ((n 0)) - (display "(+ 40 2)\n(quit)\n" socket) ;trigger EPIPE - (read-string socket) - (if (> n 5) - #f ;failure - (begin - (sleep 1) - (loop (+ 1 n)))))) - (lambda args - (->bool (memv (system-error-errno args) - (list ECONNRESET EPIPE ECONNABORTED)))))))) + (pass-if-equal "simple expression" + "scheme@(repl-server)> $1 = 42\n" + (with-repl-server socket + (read-until-prompt socket %last-line-before-prompt) + + ;; Wait until 'repl-reader' in boot-9 has written the prompt. + ;; Otherwise, if we write too quickly, 'repl-reader' checks for + ;; 'char-ready?' and doesn't print the prompt. + (match (select (list socket) '() (list socket) 3) + (((_) () ()) + (display "(+ 40 2)\n(quit)\n" socket) + (read-string socket))))) + + (pass-if "HTTP inter-protocol attack" ;CVE-2016-8606 + (with-repl-server socket + ;; Avoid SIGPIPE when the server closes the connection. + (sigaction SIGPIPE SIG_IGN) + + (read-until-prompt socket %last-line-before-prompt) + + ;; Simulate an HTTP inter-protocol attack. + (write-request (build-request (string->uri "http://localhost")) + socket) + + ;; Make sure the server reacts by closing the connection. If it + ;; fails to do that, this test hangs. + (catch 'system-error + (lambda () + (let loop ((n 0)) + (display "(+ 40 2)\n(quit)\n" socket) ;trigger EPIPE + (read-string socket) + (if (> n 5) + #f ;failure + (begin + (sleep 1) + (loop (+ 1 n)))))) + (lambda args + (->bool (memv (system-error-errno args) + (list ECONNRESET EPIPE ECONNABORTED))))))))) ;;; Local Variables: ;;; eval: (put 'with-repl-server 'scheme-indent-function 1) --------------60E7FB9D4C5D81126F01399E-- From debbugs-submit-bounces@debbugs.gnu.org Sun Mar 09 19:55:45 2025 Received: (at 36340) by debbugs.gnu.org; 9 Mar 2025 23:55:45 +0000 Received: from localhost ([127.0.0.1]:35003 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1trQUi-0008LU-Mh for submit@debbugs.gnu.org; Sun, 09 Mar 2025 19:55:44 -0400 Received: from sonic304-10.consmr.mail.bf2.yahoo.com ([74.6.128.33]:41815) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1trQUg-0008LE-JP for 36340@debbugs.gnu.org; Sun, 09 Mar 2025 19:55:43 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1741564535; bh=DsOeTii4gkmbOunvMhR4I0HqPMh4AGh8m40h94Q0kwA=; h=From:To:Cc:Subject:Date:References:From:Subject:Reply-To; b=DTo3mPxFrTa6ZgnqRIJVy+zHmYvOlA3sS6BiINh4XsEHSeAkduv3E+1cBR9/6ql1GT+DNlsiTxxAmCZW27RYpIpg6zZKoCS+Jw9xO+nrfx9ESw0AbgdpmHazjtbZAcOq7/esgh6rOm4yyYKlC/wkdvSZtD094fX/VJu3nqse1S4gXbggHlPzpTTw0iSwU1Z1BKQMHfkEHJUQFJrWckCdUVhA/O9kasnWVlWyixN29UcHuk4QLlhmObPdvJVF8J75DAfWAQYhLF6ayEhyJqnVsWKDyd4MMXvDBuUIhDANm3nuonoTyA0o1fnYPQNmUsn2h8PdelkblBzA1Mydi5iZ0w== X-SONIC-DKIM-SIGN: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1741564535; bh=Hsv+rewl9NFi5C1oKGcgDI6xFUzWNuwHsUbiRgt22mX=; h=X-Sonic-MF:From:To:Subject:Date:From:Subject; b=q3uYKyY+TcW6IDi/h0req1iOQO4oevRd6MJMKCUb16XFajdIh0FNqy9TYy3poAdmGrfPEtRzlbs1HAi1zqA0XG7KvxI5+9WbaT6O4lHKI/Ax4YBXRUnmJhxRuHeMXfPdeYwughplwqwviT4GNTVCKUP1yMM8pS0QjV4Hp9vMlVWkzHTewr6NM4MZE8Augxs7xxHsYsiu0vc2065pr1f9zmlOjHjPAKeLaXQWVSESmmLKSYoEBTOOGNqkDyhAFUWGKYmm2P6/fp9bE9IbLg93Qk+aCWpRK5B64LtOhTIgwh6t6/cvOhHWO4UMHw/O2Vtot4J6NDQt8ut1TRplTCAbBg== X-YMail-OSG: ENE7.5QVM1k74AR2CzrMhx.mNbFWFuS4D1DcsPviEvYDWyAgq0vEOkrJ9ZLxm.A dRknFg9EClhBXVaVp9h.2Mw9PosFGxq_AKluSJ.AAxT49lgihzp.venmucf6wqS5WG1FHoyG7pQH 4WF.gX62j.LMLqu3A2aeh5vkHf1ojoDvvaBPjBrSK.pE5NPnJJGrHvRsQqnnirxGeQOOG_Pq6MXP .homVbyrdekanYcXt.SFqZLbjOjL5fXPQSiHMReYPxQ8fnE2BL2SAvbaHNoLX0OtNEvaBNLpZohO 8ySO4rdb4a36B5MnmHKxNQRLNfAEIlRDBFZy9d1XarZbPbIv51KNCJtSrraBN0ORJ9uuZ_SSC8dU tyHJ.wPBt4p_2cAJm11r2iMOMqzOtDSdrqyuwrPEP7q9I31nRcDSV__R_t4Wr.BhlAhB6JbWdNUa 0ip5rILhxOoU.YJV8L.So4fpPkYFASqsizd49Gaw_bxNkxjNnaq4vGGVg_QWVxHgealR7p1rHi_V ixw9UziO9m4Y2rt8DoF7QpR8mCNxrIPEy_JFgAVOS1Of9mX9gfl3JR6dT3d.qOTTDkY9aSvO3GhK 4RQ3_ANsKD_KP6jCbPfrGX5EtxXqH4_tXIg_jP9cpFCGjnKnDnszHYK_WcwvscU6NtklNGvpgWYz bRzmc659fJ2y9YaHO2LKGB89nED8t1TRn.yEM9svzK5VGooGknVq5VzKl_Mz5lsTZVthFQ0MRuVn Mk4AwqhFse1dYCNbxlnfZ2yHZ2kWNNTmcU20WhsTOHsdyq.sz_wOr7PaCUlcrvH.bqf5qkV_R.J0 89kcw70pJiVmyNyWKp_FGJSozmJokqKcKKCNo93DlOKzJLLL_3SreqI1WKcYS6sPoWdvtKCAlnWC H1U.u3OiL7LE2TU7r4KIdH5elRMjZYEZWqKfLXsZ3scB9dTm1v4.UMidPtB9EVC0F_Akbkw11zFD ClJACPWf.Z4jPSqXrLr7Lt6doFnITjfDKKhO0c..r.FxSfxl5O.lokQTBodZgzMTXGw8LjTzLMd6 pH3_i5pepoGBjxI4MSSea47timiLdrUr7CYzdDHnfTJ5Q43VKZsZYNbWIEBmIgKtax_37.Tranjc cSdOqWPfS0dnIX5gC1W4vVwtwkaCZ3QYlBNgbQo.yBPMUsudLOOoZaQ.1i5Uw5Uxab12se3jRfnV 0MLx5c1z3KCNBzvgNT5ARW95CyPKRFDVnRMRGpsRSIcx6N6bM9SliDFGbLVMCFR.isgj0D_3DwTZ RoxwSHdhiRS7zqWkZoOYYFK6NO0ygsyZm.p3GrZ.4unBxPpiAR94KTWyU0KVamygO6NfyIbxZLgj 9CXXzJBN0CmBExobIZjnOS.BfDZl8Lrw0N.pFC7BmzEV6jnhAJ1_myV.i9oX0xDNDC5m_YzJSIfa 8HPvraZC3gSHKN.KiwFXjdWscJ5yEf5n5vDLUI8nlFoY731I4UEPVQZEyPPFiL2wKaXk8fM2Pwq1 s38GCeXpyxNcSZFoKLHZEersrauUHR2XSAG_s92_BjSn5r9wieoGXnNIO1Qt2RenGKn3ZIRQLi.O 7RCQO2lGmI519Rgjiac1ovJaAxKXx7fxtmuvW_NWoloJjHxpJX3kJqtCAOxdhjHoAHp162ICWMAq 38y6IUiHASmE6MC43enyMzhHqhjt491rWattGQFKB23SdOoxzCqMgFP0oOAXTVETKGwlDwMyPEFk rV4K65pfRtvjdeeq0Pl4CiyHT9kweKBr8bTniOPjg_fGKLXyidoc21dO8beWoaaPmAVrxPYBt5F1 mdqvgmx78Y8RoB4hbhJTVboA344XvFXjBKvtXjIurIQdncYESr9qFWjWgwi8SNmofX.mPwXGcK8x 2sZOD7zmqnrHIfszCiOxo8tXAYjLxClESTh1Xhr7qwbPM2k2ZEel4fwO5y8nl1H2koBLZAmV9DzE WH7YZBiAZQJxZTS3KWVi0p0Mbnps.R9SnjxioKrDWdCC0l4P3N1s5GbauZ9FiDMJc5y5X62Bqmrf pAOY7oQfWYO8P0uA2xkpZ39AP1urMzK0CTkfXXf1avolTbPemvOk_WQe6FGg6Kd3HH27f4m37Ol7 LTMg9gTmC46.9XWy2Vm97S_4tzcURz1bDTBJs4h3eYewg1fSXnOSiDne25Ml2VZnxX4p_T2z8RO2 wCcIa.f2Xv1MW4.yAOvBhX7MxeFetRrVZtL1tH_U6BZIUL8a5Jcl6lD3knh2l7gdYf.JD_bMhanR Z6UFTamvSqlHG57mASqWaTDc6Qs.x23PtWe0XrzZNgRoNuckYSHt.tEdvlQ-- X-Sonic-MF: X-Sonic-ID: 03703fa3-61ab-4752-b8ba-6b6b146c3f0a Received: from sonic.gate.mail.ne1.yahoo.com by sonic304.consmr.mail.bf2.yahoo.com with HTTP; Sun, 9 Mar 2025 23:55:35 +0000 Received: by hermes--production-gq1-7d5f4447dd-mtszl (Yahoo Inc. Hermes SMTP Server) with ESMTPA ID b7ec42d42dc86928006cf86cfb806f94; Sun, 09 Mar 2025 23:55:30 +0000 (UTC) From: Michael Gran To: 36340@debbugs.gnu.org Subject: [PATCH 0/2] bug#36340 Fixes to --disable-networking Date: Sun, 9 Mar 2025 16:55:21 -0700 Message-ID: <20250309235523.713401-1-spk121@yahoo.com> X-Mailer: git-send-email 2.48.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit References: <20250309235523.713401-1-spk121.ref@yahoo.com> Content-Length: 458 X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: 36340 Cc: Michael Gran X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.7 (/) These are fixes for Guile when built with the --disable-networking option. Michael Gran (2): Fixes export of suspendable-ports socket funcs when networking disabled Disable some socket tests when sockets not provided module/ice-9/suspendable-ports.scm | 46 ++++++++++++++++------------ test-suite/tests/00-repl-server.test | 3 +- test-suite/tests/web-server.test | 6 ++-- 3 files changed, 32 insertions(+), 23 deletions(-) -- 2.48.1 From debbugs-submit-bounces@debbugs.gnu.org Sun Mar 09 19:55:54 2025 Received: (at 36340) by debbugs.gnu.org; 9 Mar 2025 23:55:54 +0000 Received: from localhost ([127.0.0.1]:35009 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1trQUs-0008Lx-1y for submit@debbugs.gnu.org; Sun, 09 Mar 2025 19:55:54 -0400 Received: from sonic308-3.consmr.mail.bf2.yahoo.com ([74.6.130.42]:42280) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1trQUp-0008Lc-Qb for 36340@debbugs.gnu.org; Sun, 09 Mar 2025 19:55:52 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1741564545; bh=57myI8GGs1AHjmMO7lxSM0HiEwjMZM+oLdTMZejS15Y=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From:Subject:Reply-To; b=XtN+sDGSIBUrq31PYt5HLs9wrGrF+v4yiQJFmEiHZY1AItyUmUVAqWeh7pzHaY0lvILz0NBk3lcqNHadLNbBDWASfR38l7bFDIN1gxLBqb6Cq0wSxCK50BUfD1Rf0DS3XASDSoGXguSPPZLndftdqfnm3MeI5cx8+zUxZTAfgyInU0z161qyfwA69Ve+iFl3UG79JY8mqutVD7fv+vGWu/69gkDn1JKfIHdUHOcwJiArbLYWlucE8Mx8/GnjYX4OjJ/EMWKrB5U0x4Tae+VHno784qdswZT34uDt/Ou7ysGup+2TNszru6iO3XYIo6Nw+/69UuPi/LSRK4UiUz0r5Q== X-SONIC-DKIM-SIGN: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1741564545; bh=LonU5YFgCZznOquAOGAIJEm2tQp7sjAvTTEPL5C44ir=; h=X-Sonic-MF:From:To:Subject:Date:From:Subject; b=kqYUmFtc0DE1gDp3fN4zsEQ/Lba47Yc/b/LW/7wl4XwF+vFdjSaKRKJW9YMGEsLCE9+X99Mc0EXl4cE3njsi9oDwbx4S6+kqjbE18UOgzhN7LRAqNweemjvx8MuKipP3Y126hgV+0NL+ZhwxRpQ8rG0ZyLWG/X297YB6lrqHixv2inx06x09vgEmeJL07b6zV03O/NlhPsn62QR8ytFxCcekU1DbCIizzSZcNzinb4ip2eFlCWo/GC8qVi4Kf3zX0u4erqIPVl9INGSNmid96VYGBQOrsuVu/BpQN6LPB/KQFZ1GqP0UE5pVlmlQb68oBTPgvF0YdkiuxSgUd7RbQQ== X-YMail-OSG: 8uo62swVM1lpMKb0ldOa4kJhTKH6xdcMQJtc45MppSmNBg7vQEQO8JTVS.xEoUG ._T0mQM.wQgko2TIUlnn.BtmOC1Pmvx3LBxWGR8W9Q0IoJulzP3d8byv4rBavDxLvY5cDSu0Zx3m KSVFNgsYB3BxYIXuS9mHU.X5CAvg5BlNSoUoM5bI3n2gZgOgCSv.rYL99H_NtihO9GM8mfkxn2CT 1.FufH1kSlA_OcvDLYulbOkn2vddLAWcOM0LZPn50isPSlNVcQyHTKhYKMM4c5J5P16DTbFeGxr6 bTjh24W6z.KwzGRO8V_ubOsbPao8HASoyy.os37LIwjPYaJSjzp_CbDkhpGBRI8rYHvzQNYH.DMX Gi57hqKPiv2J4X.uxTvdB5dax7HULDYoxJ06ieOHC.NHemGdBDc7LXMOoomF5uCDoAjIZRuLzF5A 0Nj4helsoAnQ7Zx21NKEKbGbTlpimosG3IETYORQ1SwWHvkd1Zz8wYp4D5pik8Ve0MlUhAICt3M2 kBcm_rsJn4uLs.SrWNnN23M7_u8p4YF3ox1KCUu11IV5F_P6dk21DObtrcAKhcHt3jYnrx8SBs3F 0arW0fP703GzuQ2rxmgH8nq9u.2ZlDeQNo4hkOg3SWH4ZCasSDZDJDpePNDp6QkU5CpoiwxrHASf 3ZuYiFJby7kP2xhggLxCfkE6IJKQdh7Du_db0CUKf2CW5y1fWSi4xQVJMa85S1wsREmoX3HEM52f 0H9MtUsRZNgtMoj0GD7_4Vul.BhxwZYGoHPgIB7AmG7B58Y6qf.I_NqaQ6FQnx0k_szesPoOhMpd Git8nGVNbI1_ctWMh4enBS0SauBnCJgLICejtp5UfPjfIQaQ5ar_oI027NjrrNVNN7fxt5suiMXH l8qEDXYj1xWevZX2wYPvDOdUic5gW7XoIVR9BSHYzzo_j3MLQQcCTDOxP6EyjVhPi1C2hL_5Q9te 2FHDK0Q5pLtSZhC8RVA6iQAIIhxGp2stDNEMl1gSS5p21gq3Y6kycODwGIHcVcwunW72iCmzGtHW jGmmptcBh5TgZ0ZMI8D5wfTlxFGSsaPR1sS6UJ.rmHqRhplvPXHWoTVQcwHLUkSubDF8ydwrJqFB DcBikEy0nS4PDYOWFDOBGvuueLloO8eralyGiY8T83ZkH4MhcW9Ceq1cUzMcf6ORKGBoB5wt8V.s za0Rhy3ao35nV3fJ5D.emdW2iuvO.RVDOiQHXvj5r_ySyIj5TvS5eOVQEE4kgMPIsCzD__TGyWOZ X3s_6ZU5IM2CIMh8ROzEslmzTUDBWgaWiuArEOTkiPKeKFNYQOW9A3RN0BMNC7z3331o6.EQHsmn PyZ2wJckCKWus432aln7y57JZ8mPjRHyLW6_micthmSuB.eRb4qzRRip9dkd_1kB9zfsNZMPuPxx 7HSuZQ_MO4YJzXUogmukyScNCv2sQPGRelpt.jbNZ74bzXahGCVeOW5Qi9l3aAo6WLhvr3FrKp7j 7hEgxaGN1PFnW0eSPOeN2hidAjpfBxksFrnj9ljrdaDpDqMPmiLJ14ejuEn4XUwcwXhe2E7YUDs0 46hteoUyy84ZQ9KOnCVszD9zOyIx1fnPYfGqDL57nuBi0LpMv1L6Sq1bZt9qfFvhd2IohMuw9qEu JGH92EVf9gy158H6GpZo78PWmxo.s9.eynZTCG4pp0I1TrK._Jgjf0IvRbhSvU6WiP8p5NZKhH7b nOQ7wsPU2OG2PH2l41LLpNXKZwvHCL8_XBVNfEOB65K9PuQ9h_DkDde1uGSKtq7YH1tpV8xKS3LJ 3a6qhoCj00sQZxD_9vF2dudCeiAeN.4lfl0JqByO28ZydDLS2IH8zRO1a6XjXLZPr6HDGzyQC.OX vCPP_Wug4tBlyOp30NHarrOvvSqq6JzxQvl2aWSPQITTM95uvyN7279ZDyZ.XcmTTtIwnUC724py A4H_dxmtkruDTovcXQC3Amnf4s3FL3uLx5rIJ.KFO1PoDplTGv3LSsaU0m5kkx6aC3448B_f9YmS w4XxiQULKLCHoMA0QmjvkuDhdZHCTMQyWlaW750F4ascbaTdS6Mv3DeDpNafsnVS.97mxvL7hW6A ZTRJdH.ypWs6k1gC4Evo2W8qBPqi7DAgL11JuOpxBIyZQcnWpspQ1I4yJbAOlnBtp_zkeQ.pWaIy pP27HKe2VZaPUhg_TcGkFPqGAT_Wlq5IzrIUMwAVnzRB6nMlkht_g20oNqgfuGjPtjmMMMwon30j OripA2UfwD6eJi8COY.zGV0ZgzLkp83FoXJMVw8ki1Oj1zrJCVgyK9AT7VZk9OYh5lw-- X-Sonic-MF: X-Sonic-ID: b76d3148-9819-4b9b-9ecd-341abfc032d5 Received: from sonic.gate.mail.ne1.yahoo.com by sonic308.consmr.mail.bf2.yahoo.com with HTTP; Sun, 9 Mar 2025 23:55:45 +0000 Received: by hermes--production-gq1-7d5f4447dd-g9btk (Yahoo Inc. Hermes SMTP Server) with ESMTPA ID 33b3268ace8265c251324915270f9874; Sun, 09 Mar 2025 23:55:41 +0000 (UTC) From: Michael Gran To: 36340@debbugs.gnu.org Subject: [PATCH 1/2] bug#36340: Fixes suspendable-ports networking disabled Date: Sun, 9 Mar 2025 16:55:22 -0700 Message-ID: <20250309235523.713401-2-spk121@yahoo.com> X-Mailer: git-send-email 2.48.1 In-Reply-To: <20250309235523.713401-1-spk121@yahoo.com> References: <20250309235523.713401-1-spk121@yahoo.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit Content-Length: 2692 X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: 36340 Cc: Michael Gran X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.7 (/) When guile is built with --disable-networking, (ice-9 suspendable-ports) will attempt to re-export non-existent accept and socket functions. * module/ice-9/suspendable-ports.scm (accept, connect): set to #f when (guile) module does not have accept or connect (guile-port-bindings): new variable (port-bindings): don't include accept or connect when not defined --- module/ice-9/suspendable-ports.scm | 46 ++++++++++++++++++------------ 1 file changed, 27 insertions(+), 19 deletions(-) diff --git a/module/ice-9/suspendable-ports.scm b/module/ice-9/suspendable-ports.scm index 9fac1df62..00fd26049 100644 --- a/module/ice-9/suspendable-ports.scm +++ b/module/ice-9/suspendable-ports.scm @@ -727,30 +727,38 @@ (flush-output port)))) (define accept - (let ((%accept (@ (guile) accept))) - (lambda* (port #:optional (flags 0)) - (let lp () - (or (%accept port flags) - (begin - (wait-for-readable port) - (lp))))))) + (let ((%accept (false-if-exception (@ (guile) accept)))) + (if %accept + (lambda* (port #:optional (flags 0)) + (let lp () + (or (%accept port flags) + (begin + (wait-for-readable port) + (lp))))) + #f))) (define connect - (let ((%connect (@ (guile) connect))) - (lambda (port sockaddr . args) - (unless (apply %connect port sockaddr args) - ;; Clownshoes semantics; see connect(2). - (wait-for-writable port) - (let ((err (getsockopt port SOL_SOCKET SO_ERROR))) - (unless (zero? err) - (scm-error 'system-error "connect" "~A" - (list (strerror err)) #f))))))) + (let ((%connect (false-if-exception (@ (guile) connect)))) + (if %connect + (lambda (port sockaddr . args) + (unless (apply %connect port sockaddr args) + ;; Clownshoes semantics; see connect(2). + (wait-for-writable port) + (let ((err (getsockopt port SOL_SOCKET SO_ERROR))) + (unless (zero? err) + (scm-error 'system-error "connect" "~A" + (list (strerror err)) #f))))) + #f))) (define saved-port-bindings #f) +(define guile-port-bindings + (append + '(read-char peek-char force-output close-port) + (if accept '(accept) '()) + (if connect '(connect) '()))) + (define port-bindings - '(((guile) - read-char peek-char force-output close-port - accept connect) + `(((guile) ,@guile-port-bindings) ((ice-9 binary-ports) get-u8 lookahead-u8 get-bytevector-n get-bytevector-n! get-bytevector-some get-bytevector-some! -- 2.48.1 From debbugs-submit-bounces@debbugs.gnu.org Sun Mar 09 19:55:59 2025 Received: (at 36340) by debbugs.gnu.org; 9 Mar 2025 23:55:59 +0000 Received: from localhost ([127.0.0.1]:35011 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1trQUw-0008MD-LZ for submit@debbugs.gnu.org; Sun, 09 Mar 2025 19:55:59 -0400 Received: from sonic301-3.consmr.mail.bf2.yahoo.com ([74.6.129.42]:45127) by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_2) (envelope-from ) id 1trQUr-0008Le-GW for 36340@debbugs.gnu.org; Sun, 09 Mar 2025 19:55:54 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1741564547; bh=SK5zmYaEPbdPsuNggZ089oBdJEmBqvrJpog+kQDsZ5k=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From:Subject:Reply-To; b=AQ2yoQFn+Ot/pZDrFgc3Fj5hQXQKNdwI12LoP7ep07N6YiNH0e6SMN+l+XXf5nzlTptphDY3jSUs/3qiN0g6Q8o3c12rtJX1WDT11V7ZTl/wUtqZjBL49tZhkQUZQlRSEBR4NbcK+3guITtJYpi4W2xoeFr6p+YmWRFYtqAnqzDh6QGBcRb5thLaFx4gmCpCGhivXIZooT8WU7LdeDn0mlMs7pXCxAjy1Yip/acbMfYbmv3jxRzxMwwLsxl9DcOBSDkYgH8WypAx6/pfbg6xeSjYNhbTBD7yHor66yWHKCIZaDQkJzWbKrUjX84EwgwUZl6+YekpMfksfkS0yHwCEw== X-SONIC-DKIM-SIGN: v=1; a=rsa-sha256; c=relaxed/relaxed; d=yahoo.com; s=s2048; t=1741564547; bh=hShEXr6YYd+Ln3SXFX8d5YjnsvjdO3QjQoAcyGAFeSA=; h=X-Sonic-MF:From:To:Subject:Date:From:Subject; b=gQH7gb3tXN1AyHpmnF6FPO8tBrLLO1MmvEs85oqXeR/6bhR9d5vCrelx00VIVDXuUonszFSFePZQ9aij3WcXYTISjt5lssMG9W9Bc7lvtfggWaR78m8VJmVoFKd8YI/1C3pkUOt6WWYtW2ZAyv/7zrcjlWUI+3wzMmciH1rJ83h8knurYTndWyxjkD/Zs2e6M5u1WkOqyzkbAZZZGQhHB18R27jSSZ8AsLtnE9DpkG2ChSERIuEBBPnX0dG2YkvOVqQCS+Gx/FsG8ET62BKNRlmb2JZ6IH6vReW0oZJaSPyw2irX5hZYWuJA27UOyBTT2lbBBt5xjL+UX+MTxMPA0A== X-YMail-OSG: lebCLZoVM1m5Rskrz13bkc_g7enc6WapzI6ZALRarbHIIHM_mwl4rdqcKTWrZUD OuuExBlmZFVg6.6UXNM6SnJYnxu1xV1cbxIvtO863.7VWQziPhj1y6F8bjr33Q.Unglbag3cANbn uV5STUYNaJpYIWLP1HgcC.q08MJDtSBno6p4P59qy8JoC3EgNMmxfAtw8Z4PgKssD8JXmnpnF3PG apdLraPFb_4WeDH7.OsGj.W89UR8mL8xv2E..1qtBUSpYcoV95pjrLWzO4hJXmIDxz_53afWKFDF FcdyyWKoaTRtV4ZtxulBW4UNx5TKmpG8qIGCSk4GLKc7hxs6CFC1DBkpDWQoyCS2.EKS86ZwzbeP jQ7QfNK4Is_s77SpjTkEv.6IWeeugEOw7EzOxEhnznAYOod6RRgWzajMiolLCoEzxawe13rfxS2D XLyi263.w.SoC0iC9f5ed_e4w_CIE1sWy57fvQ7160G5De7H66_.JvRJ50YwFjsly_NMypgnmGbN eervUxRFfs4EzbJJ_H7I7XhlFQU8fwg8qTsoRMxTgVUjl.LBVAkmBgrq1lGO37NXNEQUpkJ7EFp8 B_8rrixiPtiqmbcPCpTun9PVv0rDrvCEFtOTnhynxIsKLp1wm4X.YMFymMu2DmqNNcx9T36gzIlx 80OvxUp9yKBk4h.ZLRosAmVFoWys6kN_0s1RO8mbfj7zQ4m0nUSRTKULxMA_.XTWho1JN8J.tjSl n0s6wjsE2izqLQ5clF91Y.6tBYOsAWQmyX0.O5HS9SFdWSe_DM1vxXiKL7BIOQmFVknmcyKGg7DR qi7T.NlM2mp7ytacN7KNz2mbjbSXNM1Zw30VPlUOFI42txoZPQD2NrCdllDlKosX5a7_9oFHyOYH JRYK5PxccbWCf7Lbo8sTGYmeTOCPoUp2X.fFBZ_Ywltwye1CMjghWJDyhNkIAl9r9m1eKLwWIkZi Q7xpzr.sWZ60SBMLl0wxUwGaiqyPgw2F29ss0LcUViI1NhS5YYarbNWvnkr8FJtVK4ipGuumWkxE 5RJktW1puKeqoHocxRcm1AtBmLOvwoCf.NHcLAJ9bqQqUfuofxlKhwtusE25_RFFOMEDNJE.GZn2 THAkzQxiXBoJ10.0UfMwtwPhaBiN1E_gWUPYMuE3YxqurtgPuNPTUn2yuDlXPc_kjcD.MqeVsifp V_HflpsRK9B0HQqEZ6u6J2aioasGib7HIaU5RSg8xgmU7tR3AwEOYgnnw.zMIaxzIvK1xSWSGZP. Sts1Rl_Ebv4ZcKSMwe7HTq8sL6O1yO2kA31rzDvqbg5EVqUWkNGUATdSB6gaN8KNDB5TMNd2nGTS wTEzi6Lp3UApLZ_uod0snNCeFdtVl9KRfDyeyP3bEP_aROCYTzyL6EXYl2Q9dicpuNwB5m2EaKKk 2epdSg8DJqDPUPO4sk8NyM0vEPa2PWTBexJMiDAJgnnZy.4VCJFitTdotXOc92BWyZJ.cNtzmYSh MVqEOLRjVILl0f_feupgt7eKieVTG49SpaaZQgSvtbwL6FmfSSKJc1eHiDKLeAVAEVsZ5mZ8Muq. be4Ut6E0T8CpdPrQzDi9fvT33COnhmZaB.M0IN23WiemJjy.uD0J6nNaNcebf.ekspBDhsWLAo_v EAiasb2H0hiT.uwfIUSAgHPGL23wQQnsKgzLS5n3xcVun3K5QF6rQUfhQkv7AXPgBvAQFAkXCN3E XBjTOOHPCgCf3bCDHw1jjyLrNfjAHneDq16Sour.ovb3EnefqZ0BVtAgGYI76wZ_HF4dqtN7HBw6 SBOXGBcXtaDITh0J2gbJFmqwkTVNrmfENv3rDufwSxIDZrmd2lW11D9aY3GEntrr6HK9E2Ikt9jI PcR0QRaPJ85q8kiQ_yEnnX1Y1yUQrYO8N89Jo7gkeav0YplSiWqQufNJ0AKNZgYuN.AlJzHzJFUq ERQLsAzHw6AYy.5PNPJneE1OoSXriQWcmGMFDwMWy8M4S7zX8zbqwGh8ifehUUVl8OoNO1D8cjXz gWn3la4XdCURIaBiQfxNi9JXmt8zaS48DFE1P2BxTUvRlIk7BcCyc9Nf7OE7rKEc_AvEFY8EJzlV PW4yvlW4gSCsuF0e18pJycOcYcl5bqDTDvp0FKQ_A9axC3WNYj26Gk0ge_c2OMUm6BuiTY7sJ9ou dxwcAdrcnNDS9MnDnXvqMqShqm4HF2MYMXBw3nRFpRDb9NB_uXbN7A7nIuK7Kh.1kwHuSO.1YJE3 J5KxQpAVRXcjXJPPNbVYw_UPRmEYyI8xei7sRvXgHsfh7xBgCoGKRVpaN2ZZpYG8d X-Sonic-MF: X-Sonic-ID: 032be053-eca6-457b-af28-afab13442bbf Received: from sonic.gate.mail.ne1.yahoo.com by sonic301.consmr.mail.bf2.yahoo.com with HTTP; Sun, 9 Mar 2025 23:55:47 +0000 Received: by hermes--production-gq1-7d5f4447dd-42bnt (Yahoo Inc. Hermes SMTP Server) with ESMTPA ID d32d748533cdc8379b0e82fb9670f6ff; Sun, 09 Mar 2025 23:55:45 +0000 (UTC) From: Michael Gran To: 36340@debbugs.gnu.org Subject: [PATCH 2/2] bug#36340: Disable tests when sockets not provided Date: Sun, 9 Mar 2025 16:55:23 -0700 Message-ID: <20250309235523.713401-3-spk121@yahoo.com> X-Mailer: git-send-email 2.48.1 In-Reply-To: <20250309235523.713401-1-spk121@yahoo.com> References: <20250309235523.713401-1-spk121@yahoo.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Content-Length: 2238 X-Spam-Score: 0.3 (/) X-Debbugs-Envelope-To: 36340 Cc: Michael Gran X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.7 (/) * test-suite/tests/00-repl-server.test (call-with-repl-server): throw unsupported when sockets not provided * test-suite/tests/web-server.test (expect, "server is listening"): throw unresolved when socket not provided --- test-suite/tests/00-repl-server.test | 3 ++- test-suite/tests/web-server.test | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/test-suite/tests/00-repl-server.test b/test-suite/tests/00-repl-server.test index 433181ee6..d90da4faa 100644 --- a/test-suite/tests/00-repl-server.test +++ b/test-suite/tests/00-repl-server.test @@ -28,7 +28,8 @@ "Set up a REPL server in a separate process and call PROC with a socket connected to that server." ;; The REPL server requires thread. The test requires fork. - (unless (and (provided? 'threads) (provided? 'fork) (defined? 'mkdtemp)) + (unless (and (provided? 'threads) (provided? 'fork) (defined? 'mkdtemp) + (provided? 'socket)) (throw 'unsupported)) (let* ((tmpdir (mkdtemp "/tmp/repl-server-test-XXXXXX")) diff --git a/test-suite/tests/web-server.test b/test-suite/tests/web-server.test index d84c47d18..f0458eb3f 100644 --- a/test-suite/tests/web-server.test +++ b/test-suite/tests/web-server.test @@ -66,7 +66,7 @@ (run-server handle-request 'http `(#:port ,%port-number))))) (define-syntax-rule (expect method path code args ...) - (if (provided? 'threads) + (if (and (provided? 'threads) (provided? 'socket)) (let-values (((response body) (method (string-append %server-base-uri path) #:decode-body? #t @@ -78,7 +78,7 @@ (pass-if "server is listening" ;; First, wait until the server is listening, up to a few seconds. - (if (provided? 'threads) + (if (and (provided? 'threads) (provided? 'socket)) (let ((socket (socket AF_INET SOCK_STREAM 0))) (let loop ((n 1)) (define success? @@ -122,7 +122,7 @@ '("Hello, λ world!" "Écrit comme ça en Latin-1." "GNU Guile") - (if (provided? 'threads) + (if (and (provided? 'threads) (provided? 'socket)) (let ((port (open-socket-for-uri %server-base-uri))) (define result (map (lambda (path) -- 2.48.1