This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=f0893308461d9586d4fd00d78fd7999a660058ff The branch, stable-2.0 has been updated via f0893308461d9586d4fd00d78fd7999a660058ff (commit) from 700f6cd86b939789e19fd325f3ad2862eac5975e (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit f0893308461d9586d4fd00d78fd7999a660058ff Author: Ludovic Courtès <[email protected]> Date: Thu Jun 12 23:19:29 2014 +0200 tests: Improve lack-of-/dev/null detection. Suggested by Eli Zaretskii <[email protected]>. * test-suite/test-suite/lib.scm (%null-device): Test for Windows based by checking for a drive letter in the current directory name. ----------------------------------------------------------------------- Summary of changes: test-suite/test-suite/lib.scm | 9 ++++++--- 1 files changed, 6 insertions(+), 3 deletions(-) diff --git a/test-suite/test-suite/lib.scm b/test-suite/test-suite/lib.scm index 5628ae0..54360b3 100644 --- a/test-suite/test-suite/lib.scm +++ b/test-suite/test-suite/lib.scm @@ -578,9 +578,12 @@ ;; On Windows (MinGW), /dev/null does not exist and we must instead ;; use NUL. Note that file system procedures automatically translate ;; /dev/null, so this variable is only useful for shell snippets. - (if (file-exists? "/dev/null") - "/dev/null" - "NUL")) + + ;; Test for Windowsness by checking whether the current directory name + ;; starts with a drive letter. + (if (string-match "^[a-zA-Z]:[/\\]" (getcwd)) + "NUL" + "/dev/null")) ;;;; REPORTERS hooks/post-receive -- GNU Guile
