diff options
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))) |