1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00

popen.test: Don't auto-compile `popen-child.scm'.

* test-suite/tests/popen.test ("open-output-pipe")["no duplicate"]:
  Disable auto-compilation of `popen-child.scm'.
This commit is contained in:
Ludovic Courtès 2010-09-01 15:03:24 +02:00
parent 25ccb5a5ab
commit 72a54e9480

View file

@ -1,6 +1,6 @@
;;;; popen.test --- exercise ice-9/popen.scm -*- scheme -*-
;;;;
;;;; Copyright 2003, 2006 Free Software Foundation, Inc.
;;;; Copyright 2003, 2006, 2010 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -167,9 +167,10 @@
(let* ((c2p (pipe))
(port (with-error-to-port (cdr c2p)
(lambda ()
(open-output-pipe (format #f
"guile -s ~a/tests/popen-child.scm"
(getenv "TEST_SUITE_DIR")))))))
(open-output-pipe
(string-append "guile --no-autocompile -s \""
(getenv "TEST_SUITE_DIR")
"/tests/popen-child.scm\""))))))
(close-port (cdr c2p)) ;; write side
(with-epipe
(lambda ()