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/019 | |
| 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/019')
| -rw-r--r-- | tests/019/load-search.tl | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/tests/019/load-search.tl b/tests/019/load-search.tl index 985bcbd0..5b742eb5 100644 --- a/tests/019/load-search.tl +++ b/tests/019/load-search.tl @@ -57,13 +57,12 @@ (lod "a.tl") "a.tl\n" (lod "c") "c.tl\n") -(push `@cur/unreadable` *load-search-dirs*) -(push-after-load (rmdir `@cur/unreadable`)) - -(ensure-dir `@cur/unreadable` 0) - -(mtest - (lod "a") :error - (lod "a.tl") :error - (lod "c") :error) +(unless (meq (os-symbol) :cygwin :cygnal) + (push `@cur/unreadable` *load-search-dirs*) + (push-after-load (rmdir `@cur/unreadable`)) + (ensure-dir `@cur/unreadable` 0) + (mtest + (lod "a") :error + (lod "a.tl") :error + (lod "c") :error)) |