From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Neil Jerram Newsgroups: gmane.lisp.guile.devel Subject: Re: 1.8 branch test failure Date: Thu, 04 Jun 2009 22:20:30 +0100 Message-ID: <87ws7r3dcx.fsf@arudy.ossau.uklinux.net> References: <87ws7tw4tr.fsf@arudy.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 1244164712 10599 80.91.229.12 (5 Jun 2009 01:18:32 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 5 Jun 2009 01:18:32 +0000 (UTC) Cc: guile-devel@gnu.org To: Greg Troxel Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri Jun 05 03:18:28 2009 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MCO4h-000625-Sx for guile-devel@m.gmane.org; Fri, 05 Jun 2009 03:18:28 +0200 Original-Received: from localhost ([127.0.0.1]:35577 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MCO4g-0003LK-GY for guile-devel@m.gmane.org; Thu, 04 Jun 2009 21:18:26 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MCN65-000451-LQ for guile-devel@gnu.org; Thu, 04 Jun 2009 20:15:50 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MCN61-00042T-Te for guile-devel@gnu.org; Thu, 04 Jun 2009 20:15:49 -0400 Original-Received: from [199.232.76.173] (port=52855 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MCMQk-0006jX-Ha for guile-devel@gnu.org; Thu, 04 Jun 2009 19:33:06 -0400 Original-Received: from mail3.uklinux.net ([80.84.72.33]:46271) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MCKMW-0001r9-Gf for guile-devel@gnu.org; Thu, 04 Jun 2009 17:20:36 -0400 Original-Received: from arudy (host86-152-99-133.range86-152.btcentralplus.com [86.152.99.133]) by mail3.uklinux.net (Postfix) with ESMTP id 2AD2E1FD0FB; Thu, 4 Jun 2009 22:20:33 +0100 (BST) Original-Received: from arudy.ossau.uklinux.net (arudy [127.0.0.1]) by arudy (Postfix) with ESMTP id DFE5F3801F; Thu, 4 Jun 2009 22:20:30 +0100 (BST) In-Reply-To: <87ws7tw4tr.fsf@arudy.ossau.uklinux.net> (Neil Jerram's message of "Wed\, 03 Jun 2009 19\:27\:28 +0100") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.4-2.6 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:8612 Archived-At: Neil Jerram writes: > Greg Troxel writes: > >> Git tree... release_1-8-6-53-g66f3b6c >> GCC version... gcc (GCC) 4.1.3 20080704 prerelease (NetBSD nb1 20080202) >> Differences: >> End differnces. >> >> [snip] >> >> FAIL: popen.test: open-input-pipe: open-input-pipe process gets (current-input-port) as stdin > > That looks to be caused by a `fix' that I did. I'll have a > look/think. If you are able to provide any more detail on the cause > of the failure, that would be great. Could you try the patch below, to show what the result of the (read ...) is? I'm assuming that there must be a result, otherwise the test would hang. Thanks, Neil diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test index 08bfa7c..54ab5a8 100644 --- a/test-suite/tests/popen.test +++ b/test-suite/tests/popen.test @@ -80,7 +80,12 @@ (open-input-pipe "read && echo $REPLY"))))) (display "hello\n" (cdr p2c)) (force-output (cdr p2c)) - (let ((result (eq? (read port) 'hello))) + (let* ((x (read port)) + (result (eq? x 'hello))) + (newline) + (display "read: ") + (write x) + (newline) (close-port (cdr p2c)) (close-pipe port) result)))