summaryrefslogtreecommitdiffstats
path: root/tests/018/path-test.tl
blob: 2b4e171738c2846985a6b92481915d03e8ba25b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(load "../common")

(mtest
  (path-search "sh") "/bin/sh"
  (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")