tests/018/path-equal.tl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(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
  )