summaryrefslogtreecommitdiff
path: root/test-suite/tests/c-api.test
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-06-11 14:35:26 +0200
committerLudovic Courtès <ludo@gnu.org>2014-06-11 14:36:55 +0200
commit82b8cfa40cbaea1ef2b8053af574c6d84f2705bc (patch)
tree298f029c5b037aef6c4162d2e87cb4b85db8cf35 /test-suite/tests/c-api.test
parent43191a31a5f15729acbde3fa58f750021977a9f9 (diff)
downloadguile-82b8cfa40cbaea1ef2b8053af574c6d84f2705bc.tar.gz
tests: Use NUL instead of /dev/null on MinGW.
Reported by Eli Zaretskii <eliz@gnu.org>. * test-suite/test-suite/lib.scm (%null-device): New variable. * test-suite/tests/c-api.test (egrep): Use %NULL-DEVICE instead of /dev/null. * test-suite/tests/popen.test ("open-input-pipe")["no duplicate"]: Likewise.
Diffstat (limited to 'test-suite/tests/c-api.test')
-rw-r--r--test-suite/tests/c-api.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/tests/c-api.test b/test-suite/tests/c-api.test
index 9a2108e69..5ce033f8d 100644
--- a/test-suite/tests/c-api.test
+++ b/test-suite/tests/c-api.test
@@ -1,7 +1,7 @@
;;;; c-api.test --- complementary test suite for the c-api -*- scheme -*-
;;;; MDJ 990915 <djurfeldt@nada.kth.se>
;;;;
-;;;; Copyright (C) 1999, 2006, 2012 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2006, 2012, 2014 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
@@ -22,7 +22,8 @@
(define srcdir (cdr (assq 'srcdir %guile-build-info)))
(define (egrep string filename)
- (zero? (system (string-append "egrep '" string "' " filename " >/dev/null"))))
+ (zero? (system (string-append "egrep '" string "' " filename
+ " >" %null-device))))
(define (seek-offset-test dirname)
(let ((dir (opendir dirname)))