mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

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

Browse source 
* test-suite/standalone/test-system-cmds (test-system-cmd): Use double
  quotes around shell arguments.
  Reported by Eli Zaretskii <eliz@gnu.org>.
This commit is contained in:
Ludovic Courtès 2013-06-16 16:39:14 +02:00
parent dba6f4e2e3
commit b518c6a0b3
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/standalone/test-system-cmds
View file

@ -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:
;; End: