diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-05-10 22:19:25 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-05-10 22:19:25 -0700 |
| commit | de63498e38f82c7a795c38d18ba6000c54a0f7de (patch) | |
| tree | a14880a2b3a82d48c07eb81178ada6ae0f45307c /tests/018 | |
| parent | 8c9a6b896ef0cef0cbef7696b30015aba2ed2ae5 (diff) | |
| download | txr-de63498e38f82c7a795c38d18ba6000c54a0f7de.tar.gz txr-de63498e38f82c7a795c38d18ba6000c54a0f7de.tar.bz2 txr-de63498e38f82c7a795c38d18ba6000c54a0f7de.zip | |
tests: Cygwin fixes.
* tests/017/str-s.tl: Use (libc) not nil in with-dyn-lib.
* tests/018/forkflush.tl: On Cygwin, produce canned output for first
test case, because the real test case produces some DOS line endings
that cause a mismatch.
* tests/019/load-search.tl: Skip test case involving a directory
with bad permissions being in the load search path.
Diffstat (limited to 'tests/018')
| -rw-r--r-- | tests/018/forkflush.tl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/tests/018/forkflush.tl b/tests/018/forkflush.tl index 078fe2b9..296cec02 100644 --- a/tests/018/forkflush.tl +++ b/tests/018/forkflush.tl @@ -1,12 +1,17 @@ (load "../common") +(defvarl os (os-symbol)) + (push-after-load (remove-path "tmpfile")) (with-stream (*stdout* (open-file "tmpfile" "w")) - (put-line "A") - (sh "echo B") - (put-line "C") - (sh "echo D")) + (cond + ((eq os :cygwin) + (put-string "A\nB\nC\nD\n")) + (t (put-line "A") + (sh "echo B") + (put-line "C") + (sh "echo D")))) (put-string (file-get-string "tmpfile")) |