diff options
author | Michael Gran <spk121@yahoo.com> | 2017-04-04 08:55:23 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2017-04-04 08:55:23 -0700 |
commit | 6dfb48d4164889f682350e04699497ca1c84d65a (patch) | |
tree | 252fe14c92f93ef37d4e87746d301d43a270ec47 | |
parent | 42b4a50ea0c73e125857c8cbd7dae4d8833966d8 (diff) | |
download | guile-6dfb48d4164889f682350e04699497ca1c84d65a.tar.gz |
Don't run popen tests when popen not provided
* test-suite/tests/popen.test (if-supported): disable when popen not provided
-rw-r--r-- | test-suite/tests/popen.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test index 2c0877484..3d6b07c95 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)) |