diff options
author | Mike Gran <spk121@yahoo.com> | 2022-10-02 07:30:48 -0700 |
---|---|---|
committer | Mike Gran <spk121@yahoo.com> | 2022-10-02 07:30:48 -0700 |
commit | 45cc892fe3719bf0fc53ef927eec71854264a95d (patch) | |
tree | a25ed11f238de11cad33088a31942b4a38dac790 | |
parent | f5c064576d9d7c7f56289a9815cea83371a89335 (diff) | |
download | guile-45cc892fe3719bf0fc53ef927eec71854264a95d.tar.gz |
Modifies command line quoting in c-api.test
On MinGW, 'system' uses a non-posix shell that does not handle
apostrophe as a quoting character. For this test, quoting a command-line
with double quotes allows it to be run with both /bin/sh and cmd.exe.
* test-suite/tests/c-api.test (egrep): use double quotes when
quoting command line
-rw-r--r-- | test-suite/tests/c-api.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/c-api.test b/test-suite/tests/c-api.test index 06dba53c5..6d6f91f85 100644 --- a/test-suite/tests/c-api.test +++ b/test-suite/tests/c-api.test @@ -22,7 +22,7 @@ (define srcdir (cdr (assq 'srcdir %guile-build-info))) (define (egrep string filename) - (zero? (system (string-append "grep -E '" string "' " filename + (zero? (system (string-append "grep -E \"" string "\" " filename " >" %null-device)))) (define (seek-offset-test dirname) |