Re: 1.8 branch test failure

[Neil Jerram]

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)))