blob: 704c414a0ec63e6fa1795442c028c40d08d77ace (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(load "../common")
(mtest
(path-equal "a" "a") t
(path-equal "a" "b") nil
(path-equal "/a" "a") nil
(path-equal "a" "a/") t
(path-equal "a/" "a/") t
(path-equal "a/b/../c" "a/c") t
(path-equal "a" "a/././.") t
(path-equal "a/." "a/././.") t
(path-equal "/.." "/") t
(path-equal "/../a" "/a/") t)
|
