[Guile-commits] GNU Guile branch, master, updated. release_1-9-15-128-g0176bbb

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=0176bbb71705434f3fbbfe67cd00a7ae3d7cf079

The branch, master has been updated
       via  0176bbb71705434f3fbbfe67cd00a7ae3d7cf079 (commit)
      from  229b4bd538d60ba59b7ac1b1177d6e83f6bf96f3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0176bbb71705434f3fbbfe67cd00a7ae3d7cf079
Author: Mark H Weaver <address@hidden>
Date:   Wed Mar 2 06:02:58 2011 -0500

    Portability fixes for popen.test (for when /bin/sh is not bash)
    
    * test-suite/tests/popen.test (open-input-pipe no-duplicate): Pass
      "read REPLY" command instead of "read" to the subshell, for improved
      portability.  In particular, it is needed when /bin/sh is dash.
    
      (open-output-pipe no-duplicate): Pass "exec guile [...]" instead of
      "guile [...]" to the subshell, to ensure that the subshell will not
      run guile as a subprocess while holding a duplicate of STDIN, which
      would cause this test to fail.  This is needed when /bin/sh is dash.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/popen.test |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test
index 6300c3b..bfd7da7 100644
--- a/test-suite/tests/popen.test
+++ b/test-suite/tests/popen.test
@@ -104,7 +104,7 @@
                     (with-input-from-port (car p2c)
                       (lambda ()
                         (open-input-pipe
-                         "exec 1>/dev/null; echo closed 1>&2; exec 
2>/dev/null; read")))))))
+                         "exec 1>/dev/null; echo closed 1>&2; exec 
2>/dev/null; read REPLY")))))))
       (close-port (cdr c2p))   ;; write side
       (let ((result (eof-object? (read-char port))))
        (display "hello!\n" (cdr p2c))
@@ -168,7 +168,7 @@
           (port (with-error-to-port (cdr c2p)
                   (lambda ()
                     (open-output-pipe
-                      (string-append "guile --no-auto-compile -s \""
+                      (string-append "exec guile --no-auto-compile -s \""
                                      (getenv "TEST_SUITE_DIR")
                                      "/tests/popen-child.scm\""))))))
       (close-port (cdr c2p))   ;; write side


hooks/post-receive
-- 
GNU Guile