2 exec guile
-q -s "$0" "$@"
5 (define
(test-system-cmd
)
6 (if (not
(boolean?
(system
)))
10 "test-system-cmds: (system) did not return a boolean\n")
13 ;; Note
: Use double quotes since simple quotes are not supported by
14 ;; `cmd.exe' on Windows.
15 (let ((rs (status:exit-val (system "guile -c \"(exit 42)\""))))
20 "test-system-cmds: system exit status was ~S rather than 42\n"
24 (define (test-system*-cmd)
25 (let ((rs (status:exit-val (system* "guile" "-c" "(exit 42)"))))
30 "test-system-cmds: system* exit status was ~S rather than 42\n"
34 (if (defined? 'system)
37 (if (defined? 'system*)