From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Neil Jerram Newsgroups: gmane.lisp.guile.bugs Subject: Re: A passing test case Date: Sat, 26 Jan 2008 18:58:30 +0000 Message-ID: <87wspwo1m1.fsf@ossau.uklinux.net> References: <87sl0kafnb.fsf@ossau.uklinux.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1201373928 12813 80.91.229.12 (26 Jan 2008 18:58:48 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 26 Jan 2008 18:58:48 +0000 (UTC) Cc: bug-guile@gnu.org To: Gregory Marton Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sat Jan 26 19:59:07 2008 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JIqF8-0004uB-0s for guile-bugs@m.gmane.org; Sat, 26 Jan 2008 19:59:06 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JIqEh-0000dz-Kn for guile-bugs@m.gmane.org; Sat, 26 Jan 2008 13:58:39 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JIqEd-0000du-Gd for bug-guile@gnu.org; Sat, 26 Jan 2008 13:58:35 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JIqEc-0000df-2d for bug-guile@gnu.org; Sat, 26 Jan 2008 13:58:35 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JIqEb-0000dc-TP for bug-guile@gnu.org; Sat, 26 Jan 2008 13:58:33 -0500 Original-Received: from mail3.uklinux.net ([80.84.72.33]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JIqEb-0007xc-DL for bug-guile@gnu.org; Sat, 26 Jan 2008 13:58:33 -0500 Original-Received: from arudy (host86-145-183-175.range86-145.btcentralplus.com [86.145.183.175]) by mail3.uklinux.net (Postfix) with ESMTP id 859B61F6A4C; Sat, 26 Jan 2008 18:58:32 +0000 (GMT) Original-Received: from laruns (unknown [192.168.0.10]) by arudy (Postfix) with ESMTP id E77BD3800A; Sat, 26 Jan 2008 18:58:30 +0000 (GMT) In-Reply-To: (Gregory Marton's message of "Sat, 26 Jan 2008 09:28:59 -0500 (EST)") User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/21.4 (gnu/linux) X-detected-kernel: by monty-python.gnu.org: Linux 2.4-2.6 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:3732 Archived-At: Gregory Marton writes: > The differences are not significant. I guess I wanted to make clear > in the test case that this isn't something to do with literal > rationals, and I didn't want the test case to be printing things to > the console. OK, thanks for explaining that. I assume that this test relates to the following NEWS item (for 1.8.2): ** Fractions were not `equal?' if stored in unreduced form. (A subtle problem, since printing a value reduced it, making it work.) But doesn't that mean that your test needs to use an unreduced fraction, e.g. 2/4 instead of 1/2 ? (Or does Guile have a strange idea of reduction which means that 1/2 is not already a reduced form?) Regards, Neil >>> --- test-suite/tests/fractions.test.1.8.3 2008-01-25 20:08:57.000000000 -0500 >>> +++ test-suite/tests/fractions.test 2008-01-25 20:09:07.000000000 -0500 >>> @@ -400,3 +400,8 @@ >>> (with-test-prefix "fraction generics" >>> (testeq (G 1) 'integer) >>> (testeq (G 2/3) 'fraction)) >>> + >>> +(pass-if (let ((x (/ 1 2))) >>> + (with-output-to-string (lambda () (display x))) >>> + (equal? x (/ 1 2)))) >>> +