From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Tomas Volf <~@wolfsden.cz> Newsgroups: gmane.lisp.guile.bugs Subject: bug#72376: srfi-64: test-equal evaluates test-name multiple times Date: Tue, 30 Jul 2024 21:51:57 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="27382"; mail-complaints-to="usenet@ciao.gmane.io" To: 72376@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Tue Jul 30 21:54:20 2024 Return-path: Envelope-to: guile-bugs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1sYsvM-0006xm-3T for guile-bugs@m.gmane-mx.org; Tue, 30 Jul 2024 21:54:20 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1sYsu4-00053b-47; Tue, 30 Jul 2024 15:53:00 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1sYsu2-00052X-09 for bug-guile@gnu.org; Tue, 30 Jul 2024 15:52:58 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1sYsu1-0006yY-Me for bug-guile@gnu.org; Tue, 30 Jul 2024 15:52:57 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:From:Date:To:Subject; bh=KOvSLCnrBHis5idjIGdNOUnxqdm/gop078PZjNpbNQw=; b=p+junuZW2cOvomiIVXe9JAgLVmgRx0NoYS96UBzCnWeO5OLK+foQRRb/4T8hRLkwBjk/slCM/beSTxyAE+3fzvIO5WYm+dUbqVjWGzbRwFdKRc3ZC36pmOXR/hPAn1PkLZYXR1gpefsbSmZ4T4mzHbPepAfS3q1QX1gbkCsGhou3r/Tq8QdgQcm4lKAKXyj7lTLsAAOtQ53M1jiyTD2LEbBpgmETzZOC/w2dNPoIvpZkd5LUGHA6gd+vPJu98B2dJGfEJQv6qhJQs6se0wZMi52utKrZMd1ouZrQRQM60ujttj3KTVtbf+ONPZtuJ0a8e9N6ObrbQVNQHzsF6oEB+g==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1sYsuG-0006eE-5W for bug-guile@gnu.org; Tue, 30 Jul 2024 15:53:12 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Tomas Volf <~@wolfsden.cz> Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Tue, 30 Jul 2024 19:53:11 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 72376 X-GNU-PR-Package: guile X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.172236916725309 (code B ref -1); Tue, 30 Jul 2024 19:53:11 +0000 Original-Received: (at submit) by debbugs.gnu.org; 30 Jul 2024 19:52:47 +0000 Original-Received: from localhost ([127.0.0.1]:48506 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1sYstr-0006a6-DZ for submit@debbugs.gnu.org; Tue, 30 Jul 2024 15:52:47 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:45456) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <~@wolfsden.cz>) id 1sYstY-0006YR-Lm for submit@debbugs.gnu.org; Tue, 30 Jul 2024 15:52:29 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <~@wolfsden.cz>) id 1sYstJ-0004vW-Su for bug-guile@gnu.org; Tue, 30 Jul 2024 15:52:13 -0400 Original-Received: from wolfsden.cz ([37.205.8.62]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <~@wolfsden.cz>) id 1sYstH-0006s1-H8 for bug-guile@gnu.org; Tue, 30 Jul 2024 15:52:13 -0400 Original-Received: by wolfsden.cz (Postfix, from userid 104) id A70BA29392E; Tue, 30 Jul 2024 19:51:57 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail; t=1722369117; bh=lGINPd70B71e/aRnFlpNXX3xuFN8ig/yR9DlTlnrdmM=; h=Date:From:To:Subject; b=fqiSfjC64WSb7UxmgY4RFvA01n6Fv7ZYtSqaWFtZ06Cf/K6MQHlC2ld3ALwZyoyGB +sEzk4voKjTzApcyGG+S9v5/N4K907ka+q+Aqm0Mi8OSZ+0Q3doefj1413R0gXFqr8 fYTFVDFC4CNro6O7Co0nGnfBw51+SWEexTBufS7efCP8h7+NkPHDOeHP/Blbf2cz7k dRJBdK5QaD2PrW/F0ymwiIJeFOcVvLwtLvPbDOhRXdidXiqoT9siPaRr36WHFZ1xce Zp9Hj/M7UH1raLvzJbLn/+fWDIoyJMwIJP8zI7+QNu6kCBVmfFQkBrmzTxB6bZxsqU 5+lhDB4BdC7gEbotP/LvZACIpVJ0ioQ0RQNWPujeU/VF3xvRCEKakpRB/C9B97fqAF LIUqog20U/ZtVXF6ubfCXwQzptsREBRsZdyEd0rn0AFa1XYrWD3qefeFhmMFV93W+H vKireyq2x2fIVzuUIxJsFKL8mm52iM70HpYe4AN+NI7tspwf6yhIHJMIbkDzkBr2zs H3fA2oELjLC/PhAtdw4iQhQ0IUAdJlsnCU2Ir5mEmo/TjYFsN4h5rfQGB+Cdrslrtt IBFcdF/+qKah0DNfVsQdEMWlnQTlA2l8EC573xeV6JQRrTrLpMKsLI+pjki7FTi9tt BpcdskShTIaRGDsz+dLkIi4k= Original-Received: from localhost (unknown [128.0.188.242]) by wolfsden.cz (Postfix) with ESMTPSA id 696CE29328E for ; Tue, 30 Jul 2024 19:51:57 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail; t=1722369117; bh=lGINPd70B71e/aRnFlpNXX3xuFN8ig/yR9DlTlnrdmM=; h=Date:From:To:Subject; b=fqiSfjC64WSb7UxmgY4RFvA01n6Fv7ZYtSqaWFtZ06Cf/K6MQHlC2ld3ALwZyoyGB +sEzk4voKjTzApcyGG+S9v5/N4K907ka+q+Aqm0Mi8OSZ+0Q3doefj1413R0gXFqr8 fYTFVDFC4CNro6O7Co0nGnfBw51+SWEexTBufS7efCP8h7+NkPHDOeHP/Blbf2cz7k dRJBdK5QaD2PrW/F0ymwiIJeFOcVvLwtLvPbDOhRXdidXiqoT9siPaRr36WHFZ1xce Zp9Hj/M7UH1raLvzJbLn/+fWDIoyJMwIJP8zI7+QNu6kCBVmfFQkBrmzTxB6bZxsqU 5+lhDB4BdC7gEbotP/LvZACIpVJ0ioQ0RQNWPujeU/VF3xvRCEKakpRB/C9B97fqAF LIUqog20U/ZtVXF6ubfCXwQzptsREBRsZdyEd0rn0AFa1XYrWD3qefeFhmMFV93W+H vKireyq2x2fIVzuUIxJsFKL8mm52iM70HpYe4AN+NI7tspwf6yhIHJMIbkDzkBr2zs H3fA2oELjLC/PhAtdw4iQhQ0IUAdJlsnCU2Ir5mEmo/TjYFsN4h5rfQGB+Cdrslrtt IBFcdF/+qKah0DNfVsQdEMWlnQTlA2l8EC573xeV6JQRrTrLpMKsLI+pjki7FTi9tt BpcdskShTIaRGDsz+dLkIi4k= Content-Disposition: inline Received-SPF: pass client-ip=37.205.8.62; envelope-from=~@wolfsden.cz; helo=wolfsden.cz X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.lisp.guile.bugs:10928 Archived-At: Hello, I think I found a bug in (srfi srfi-64) module shipped with GNU Guile. The specification says that test-equal is equivalent to: > (test-assert [test-name] (equal? expected test-expr)) Hence the test-assert's requirement to evaluate test-name only once applies. However the test-name is evaluated multiple times: (use-modules (srfi srfi-64)) (test-begin "x") (test-equal (pk "t") #t #t) Leading to: ;;; ("t") ;;; ("t") Have a nice day Tomas Volf