diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-13 07:33:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-13 07:33:06 -0700 |
| commit | 2a69cc88e868653e89cf0c9de6c4e48cb790511a (patch) | |
| tree | c26e6752b255dc0157f6b74d7c308054bce4cb40 /tests/018 | |
| parent | e3b13d2f147596c483797cf4dd54420cf7aa34e4 (diff) | |
| download | txr-2a69cc88e868653e89cf0c9de6c4e48cb790511a.tar.gz txr-2a69cc88e868653e89cf0c9de6c4e48cb790511a.tar.bz2 txr-2a69cc88e868653e89cf0c9de6c4e48cb790511a.zip | |
tests: guix fixes.
* tests/002/query-1.txr: Skip test if an executable
/bin/sh doesn't exist, rather than the bogus reasons.
* tests/010/json.tl: Change the condition for the
command-put-json tests: not whether cat is found
in the search path but whether /bin/sh exists and is executable.
* tests/017/realpath.tl: Also quit if /usr/bin doesn't exist.
* tests/018/path-test.tl: Exit succesfully if /bin/sh
does not exist. Revert the earlier change.
* tests/018/process.tl: Quit if no executable /bin/sh exists.
Diffstat (limited to 'tests/018')
| -rw-r--r-- | tests/018/path-test.tl | 5 | ||||
| -rw-r--r-- | tests/018/process.tl | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/tests/018/path-test.tl b/tests/018/path-test.tl index 75a8d2d3..919186ac 100644 --- a/tests/018/path-test.tl +++ b/tests/018/path-test.tl @@ -1,7 +1,10 @@ (load "../common") +(unless (path-executable-to-me-p "/bin/sh") + (exit 0)) + (mtest - (ends-with "/sh" (path-search "sh")) t + (ends-with "/bin/sh" (path-search "sh")) t (path-search "AlMoStCeRtAiNlLyNoNeXisTenT") nil (path-search "") nil (path-search "sh" nil) nil diff --git a/tests/018/process.tl b/tests/018/process.tl index 1b3780ac..07ecfb64 100644 --- a/tests/018/process.tl +++ b/tests/018/process.tl @@ -1,5 +1,8 @@ (load "../common") +(unless (path-executable-to-me-p "/bin/sh") + (exit 0)) + (defun cmd (c : (m "r")) (with-stream (s (open-command c m)) (get-string s))) |