blob: 11651c176f9475e065b486f3fc69eb97d1041c4e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(load "../common")
(mtest
(rel-path "/abc" "abc") :error
(rel-path "abc" "/abc") :error
(rel-path "." ".") "."
(rel-path "./abc" "abc") "."
(rel-path "abc" "./abc") "."
(rel-path "./abc" "./abc") "."
(rel-path "abc" "abc") "."
(rel-path "." "abc") "abc"
(rel-path "abc/def" "abc/ghi") "../ghi"
(rel-path "xyz/../abc/def" "abc/ghi") "../ghi"
(rel-path "abc" "d/e/f/g/h") "../d/e/f/g/h"
(rel-path "abc" "d/e/../g/h") "../d/g/h"
(rel-path "d/e/../g/h" ".") "../../.."
(rel-path "d/e/../g/h" "a/b") "../../../a/b"
(rel-path "x" "../../../y") "../../../../y"
(rel-path "x///" "x") "."
(rel-path "x" "x///") "."
(rel-path "///x" "/x") "."
(rel-path "../../x" "y") :error
(rel-path "" "") "."
(rel-path "a" "") ".."
(rel-path "" "a") "a")
|
