diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-06-11 14:35:26 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-06-11 14:36:55 +0200 |
commit | 82b8cfa40cbaea1ef2b8053af574c6d84f2705bc (patch) | |
tree | 298f029c5b037aef6c4162d2e87cb4b85db8cf35 /test-suite/tests/c-api.test | |
parent | 43191a31a5f15729acbde3fa58f750021977a9f9 (diff) | |
download | guile-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.test | 5 |
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))) |