mike121 pushed a commit to branch wip-cygwin-guile-2.2 in repository guile.
commit 6dfb48d4164889f682350e04699497ca1c84d65a Author: Michael Gran <[email protected]> Date: Tue Apr 4 08:55:23 2017 -0700 Don't run popen tests when popen not provided * test-suite/tests/popen.test (if-supported): disable when popen not provided --- test-suite/tests/popen.test | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test index 2c08774..3d6b07c 100644 --- a/test-suite/tests/popen.test +++ b/test-suite/tests/popen.test @@ -1,6 +1,7 @@ ;;;; popen.test --- exercise ice-9/popen.scm -*- scheme -*- ;;;; -;;;; Copyright 2003, 2006, 2010, 2011, 2013, 2014 Free Software Foundation, Inc. +;;;; Copyright 2003, 2006, 2010, 2011, 2013, 2014, +;;;; 2017 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 @@ -36,7 +37,8 @@ restore-signals)) (define-syntax-rule (if-supported body ...) - (begin body ...)) + (when (provided? 'popen) + (begin body ...))) (if-supported (use-modules (ice-9 popen))
