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

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

Browse source 
* 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
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test-suite/tests/popen.test
View file

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