tests: Use double quotes around shell arguments, for Windows.

[bpt/guile.git] / test-suite / standalone / test-system-cmds

diff --git a/test-suite/standalone/test-system-cmds b/test-suite/standalone/test-system-cmds
index d0e4a69..8c59083 100755 (executable)
--- a/test-suite/standalone/test-system-cmds
+++ b/test-suite/standalone/test-system-cmds
@@ -1,5 +1,5 @@
 #!/bin/sh
-exec guile -s "$0" "$@"
+exec guile -q -s "$0" "$@"
 !#
 
 (define (test-system-cmd)
@@ -9,8 +9,10 @@ exec guile -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 -s "$0" "$@"
 
 ;; Local Variables:
 ;; mode: scheme
-;; End:
\ No newline at end of file
+;; End: