[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: 1.8 branch test failure
From: |
Neil Jerram |
Subject: |
Re: 1.8 branch test failure |
Date: |
Thu, 04 Jun 2009 22:20:30 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) |
Neil Jerram <address@hidden> writes:
> Greg Troxel <address@hidden> 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)))