New upstream version 2.19.65

[lilypond.git] / guile18 / test-suite / standalone / test-system-cmds

diff --git a/guile18/test-suite/standalone/test-system-cmds b/guile18/test-suite/standalone/test-system-cmds
new file mode 100755 (executable)
index 0000000..f500729
--- /dev/null
+++ b/guile18/test-suite/standalone/test-system-cmds
@@ -0,0 +1,42 @@
+#!/bin/sh
+exec guile -q -s "$0" "$@"
+!#
+
+(define (test-system-cmd)
+  (if (not (boolean? (system)))
+      (begin
+        (simple-format
+         #t
+         "test-system-cmds: (system) did not return a boolean\n")
+        (exit 1)))
+  
+  (let ((rs (status:exit-val (system "guile -c '(exit 42)'"))))
+    (if (not (= 42 rs))
+        (begin
+          (simple-format
+           #t
+           "test-system-cmds: system exit status was ~S rather than 42\n"
+           rs)
+          (exit 1)))))
+
+(define (test-system*-cmd)
+  (let ((rs (status:exit-val (system* "guile" "-c" "(exit 42)"))))
+    (if (not (= 42 rs))
+        (begin
+          (simple-format
+           #t
+           "test-system-cmds: system* exit status was ~S rather than 42\n"
+           rs)
+          (exit 1)))))
+
+(if (defined? 'system)
+    (test-system-cmd))
+
+(if (defined? 'system*)
+    (test-system*-cmd))
+     
+(exit 0)
+
+;; Local Variables:
+;; mode: scheme
+;; End:
\ No newline at end of file