From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Olivier Dion via General Guile related discussions Newsgroups: gmane.lisp.guile.user Subject: Re: with-exception-handler experiment Date: Wed, 09 Mar 2022 09:34:53 -0500 Message-ID: <87r17bb3ea.fsf@laura> References: Reply-To: Olivier Dion Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="5507"; mail-complaints-to="usenet@ciao.gmane.io" To: =?utf-8?B?SsOpcsOpbXk=?= Korwin-Zmijowski , guile-user Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Wed Mar 09 15:35:46 2022 Return-path: Envelope-to: guile-user@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 1nRxPm-0001C6-Eb for guile-user@m.gmane-mx.org; Wed, 09 Mar 2022 15:35:46 +0100 Original-Received: from localhost ([::1]:34444 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nRxPl-0005KZ-3d for guile-user@m.gmane-mx.org; Wed, 09 Mar 2022 09:35:45 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:36212) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nRxP6-0005K9-2i for guile-user@gnu.org; Wed, 09 Mar 2022 09:35:04 -0500 Original-Received: from smtp.polymtl.ca ([132.207.4.11]:53034) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nRxP2-0007YY-Fy for guile-user@gnu.org; Wed, 09 Mar 2022 09:35:01 -0500 Original-Received: from localhost (modemcable094.169-200-24.mc.videotron.ca [24.200.169.94]) by smtp.polymtl.ca (8.14.7/8.14.7) with ESMTP id 229EYrZc005738 (version=TLSv1/SSLv3 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=NOT); Wed, 9 Mar 2022 09:34:58 -0500 DKIM-Filter: OpenDKIM Filter v2.11.0 smtp.polymtl.ca 229EYrZc005738 In-Reply-To: X-Poly-FromMTA: (modemcable094.169-200-24.mc.videotron.ca [24.200.169.94]) at Wed, 9 Mar 2022 14:34:53 +0000 Received-SPF: pass client-ip=132.207.4.11; envelope-from=olivier.dion@polymtl.ca; helo=smtp.polymtl.ca X-Spam_score_int: -41 X-Spam_score: -4.2 X-Spam_bar: ---- X-Spam_report: (-4.2 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_MED=-2.3, RCVD_IN_MSPIKE_H3=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.io gmane.lisp.guile.user:18176 Archived-At: On Tue, 08 Mar 2022, J=C3=A9r=C3=A9my Korwin-Zmijowski wrote: > Hello Guilers, > > Hope you are all fine and safe. > > In the following code, I have a test which should check if my result is=20 > correct. > > If you change the expected string value "1 run, 1 failed" the assert=20 > procedure does not throw. > > ;;;; code under test > (define runner > =C2=A0 (let ([result '(0 0)]) > =C2=A0=C2=A0=C2=A0 (case-lambda > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 [() (lambda (proc) (run-and-count pro= c result) result)] I'm pretty sure the problem is here. You're returning the initial result (0 0) and thus you're ending up with 0 run, 0 failed. Try with [() (lambda (proc) (run-and-count proc result)] like you did for the other cases. Regards, old --=20 Olivier Dion Polymtl