From b518c6a0b3b429615d889aebe73862f76bbbf59c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 16 Jun 2013 16:39:14 +0200 Subject: [PATCH] tests: Use double quotes around shell arguments, for Windows. * test-suite/standalone/test-system-cmds (test-system-cmd): Use double quotes around shell arguments. Reported by Eli Zaretskii . --- test-suite/standalone/test-system-cmds | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/test-suite/standalone/test-system-cmds b/test-suite/standalone/test-system-cmds index f5007297e..8c590835d 100755 --- a/test-suite/standalone/test-system-cmds +++ b/test-suite/standalone/test-system-cmds @@ -9,8 +9,10 @@ exec guile -q -s "$0" "$@" #t "test-system-cmds: (system) did not return a boolean\n") (exit 1))) - - (let ((rs (status:exit-val (system "guile -c '(exit 42)'")))) + + ;; Note: Use double quotes since simple quotes are not supported by + ;; `cmd.exe' on Windows. + (let ((rs (status:exit-val (system "guile -c \"(exit 42)\"")))) (if (not (= 42 rs)) (begin (simple-format @@ -39,4 +41,4 @@ exec guile -q -s "$0" "$@" ;; Local Variables: ;; mode: scheme -;; End: \ No newline at end of file +;; End: