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:
parent
25ccb5a5ab
commit
72a54e9480
1 changed files with 5 additions and 4 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue