[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.11-39-gf089330

[Ludovic Courtès]

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 <address@hidden>
Date:   Thu Jun 12 23:19:29 2014 +0200

    tests: Improve lack-of-/dev/null detection.
    
    Suggested by Eli Zaretskii <address@hidden>.
    
    * 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