[PATCH] test-system-cmds: use sh -c instead of guile -c

[Omar Polo <op@omarpolo.com>]

Hello,

I'm not sure this patch is palatable as-is, but I'm adding it to the
OpenBSD port to have less failures in the regress suite.

The main issue is that "guile" may not be available at test time for
various reasons.  (the install prefix is not in $PATH, the executable
may be renamed --program-suffix, etc...)

The comment about windows however makes me think that neither sh may
be available.  Using meta/guile then is better, other tests are doing
that, but I haven't found the right incantation to do so.


Thanks,

Omar Polo

From 177f7dfa68ff47d448c7a8ac0cb4834eefef8dce Mon Sep 17 00:00:00 2001
From: Omar Polo <op@omarpolo.com>
Date: Sat, 28 Jan 2023 09:58:35 +0000
Subject: [PATCH] test-system-cmds: use sh -c instead of guile -c

---
 test-suite/standalone/test-system-cmds | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test-suite/standalone/test-system-cmds b/test-suite/standalone/test-system-cmds
index 8c590835d..098808201 100755
--- a/test-suite/standalone/test-system-cmds
+++ b/test-suite/standalone/test-system-cmds
@@ -12,7 +12,7 @@ exec guile -q -s "$0" "$@"
 
   ;; 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)\""))))
+  (let ((rs (status:exit-val (system "sh -c \"exit 42\""))))
     (if (not (= 42 rs))
         (begin
           (simple-format
@@ -22,7 +22,7 @@ exec guile -q -s "$0" "$@"
           (exit 1)))))
 
 (define (test-system*-cmd)
-  (let ((rs (status:exit-val (system* "guile" "-c" "(exit 42)"))))
+  (let ((rs (status:exit-val (system* "sh" "-c" "exit 42"))))
     (if (not (= 42 rs))
         (begin
           (simple-format
-- 
2.39.0