diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-12 07:44:47 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-12 07:44:47 -0700 |
commit | 7249881d04474eee5d0014f7cb6ecf3715d98694 (patch) | |
tree | edfbaa37770c4c24b7682885e08c2c1e5dc33aaf /tests/018 | |
parent | cf417ee1293520519d50e40d3d33cf9a36fe7f6c (diff) | |
download | txr-7249881d04474eee5d0014f7cb6ecf3715d98694.tar.gz txr-7249881d04474eee5d0014f7cb6ecf3715d98694.tar.bz2 txr-7249881d04474eee5d0014f7cb6ecf3715d98694.zip |
tests: weaken condition in path search for sh.
* tests/018/path-test.tl: In the Guix build environment, the
shell might be found at a path not ending in bin. Let's
ust test for ending in /bin. Reported and investigated by
Paul A. Patience.
Diffstat (limited to 'tests/018')
-rw-r--r-- | tests/018/path-test.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/018/path-test.tl b/tests/018/path-test.tl index 0fbc5115..75a8d2d3 100644 --- a/tests/018/path-test.tl +++ b/tests/018/path-test.tl @@ -1,7 +1,7 @@ (load "../common") (mtest - (ends-with "/bin/sh" (path-search "sh")) t + (ends-with "/sh" (path-search "sh")) t (path-search "AlMoStCeRtAiNlLyNoNeXisTenT") nil (path-search "") nil (path-search "sh" nil) nil |