mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Don't run popen tests when popen not provided

Browse source 
* test-suite/tests/popen.test (if-supported): disable when popen not provided
This commit is contained in:
Michael Gran 2017-04-04 08:55:23 -07:00
parent 42b4a50ea0
commit 6dfb48d416
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,7 @@
;;;; popen.test --- exercise ice-9/popen.scm -*- scheme -*- ;;;; 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 ;;;; 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
@ -36,7 +37,8 @@
restore-signals)) restore-signals))
(define-syntax-rule (if-supported body ...) (define-syntax-rule (if-supported body ...)
(begin body ...)) (when (provided? 'popen)
(begin body ...)))
(if-supported (if-supported
(use-modules (ice-9 popen)) (use-modules (ice-9 popen))