guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 05/07: Don't run popen tests when popen not provided


From: Mike Gran
Subject: [Guile-commits] 05/07: Don't run popen tests when popen not provided
Date: Tue, 4 Apr 2017 12:16:47 -0400 (EDT)

mike121 pushed a commit to branch wip-cygwin-guile-2.2
in repository guile.

commit 6dfb48d4164889f682350e04699497ca1c84d65a
Author: Michael Gran <address@hidden>
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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]