Address #284 - handle path/normalize edge case

Author: sogaiu

spork/path.janet

@@ -116,9 +116,11 @@
        (match x
          [:lead what] (set lead what)
          "." nil
-         ".." (if (= 0 seen)
+         ".." (if (and (nil? lead) (= 0 seen))
                 (array/push accum x)
-                (do (-- seen) (array/pop accum)))
+                (do
+                  (when (< 0 seen) (-- seen))
+                  (array/pop accum)))
          (do (++ seen) (array/push accum x))))
      (def ret (string (or lead "") (string/join accum ,sep)))
      (if (= "" ret) "." ret)))

test/suite-path.janet

@@ -44,6 +44,8 @@
 # normalize
 
 (aeq (path/posix/normalize "/abc/../") "/")
+(aeq (path/posix/normalize "/abc/../../def") "/def")
+(aeq (path/posix/normalize "/../../..") "/")
 (aeq (path/posix/normalize "/abc/abc") "/abc/abc")
 (aeq (path/posix/normalize "/abc/abc/..") "/abc")
 (aeq (path/posix/normalize "/abc/abc/../") "/abc/")
@@ -53,6 +55,8 @@
 (aeq (path/posix/normalize "//////") "/")
 
 (aeq (path/win32/normalize `C:\abc\..\`) `C:\`)
+(aeq (path/win32/normalize `C:\abc\..\..\def`) `C:\def`)
+(aeq (path/win32/normalize `C:\..\..\..`) `C:\`)
 (aeq (path/win32/normalize `C:\abc\abc`) `C:\abc\abc`)
 (aeq (path/win32/normalize `C:\abc\abc\..`) `C:\abc`)
 (aeq (path/win32/normalize `C:\abc\abc\..\`) `C:\abc\`)