diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-04 03:16:54 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-04 03:16:54 -0700 |
commit | 04043a1ee47fc9e4e99818c5752f961f2df74ab4 (patch) | |
tree | f62cf3fee50272e7e79850e2edf63694fb80e5dd | |
parent | ccb998581d8ba1e2f8f9c56768d57e32c51777c5 (diff) | |
download | txr-04043a1ee47fc9e4e99818c5752f961f2df74ab4.tar.gz txr-04043a1ee47fc9e4e99818c5752f961f2df74ab4.tar.bz2 txr-04043a1ee47fc9e4e99818c5752f961f2df74ab4.zip |
path-search: fix test for sh not being in /bin.
* tests/018/path-test.tl: Check that the result of a path-search for
"sh" only ends in "/bin/sh", not that it is precisely "/bin/sh".
-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 2b4e1717..0fbc5115 100644 --- a/tests/018/path-test.tl +++ b/tests/018/path-test.tl @@ -1,7 +1,7 @@ (load "../common") (mtest - (path-search "sh") "/bin/sh" + (ends-with "/bin/sh" (path-search "sh")) t (path-search "AlMoStCeRtAiNlLyNoNeXisTenT") nil (path-search "") nil (path-search "sh" nil) nil |