From 6dfb48d4164889f682350e04699497ca1c84d65a Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Tue, 4 Apr 2017 08:55:23 -0700 Subject: [PATCH] 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 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))