blob: 919186ac1b965acd1c3742ae3acb9be8c4f41822 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(load "../common")
(unless (path-executable-to-me-p "/bin/sh")
(exit 0))
(mtest
(ends-with "/bin/sh" (path-search "sh")) t
(path-search "AlMoStCeRtAiNlLyNoNeXisTenT") nil
(path-search "") nil
(path-search "sh" nil) nil
(path-search "sh" '("AlMoStCeRtAiNlLyNoNeXisTenT")) nil
(path-search "sh" '("AlMoStCeRtAiNlLyNoNeXisTenT" "/bin")) "/bin/sh"
(path-search "sh" '("/bin")) "/bin/sh"
(path-search "sh" "AlMoStCeRtAiNlLyNoNeXisTenT") nil
(path-search "sh" "AlMoStCeRtAiNlLyNoNeXisTenT:/bin") "/bin/sh"
(path-search "sh" "/bin") "/bin/sh"
(path-search "sh" "/bin/") "/bin/sh"
(path-search "sh" ":/bin/") "/bin/sh")
|