* generic/tclPathObj.c: More fixes for path normalization when /../

        * tests/fileSystem.test: tries to go beyond root.[Bug 1379287]

1 files changed, 40 insertions, 0 deletions

diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 06ab643..39e02c4 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -433,6 +433,46 @@ test filesystem-1.46 {file normalisation .. beyond root (Bug 1379287)} {
         set res "ok"
     }
 } {ok}
+test filesystem-1.47 {file normalisation .. beyond root (Bug 1379287)} {
+    set a [file norm /..]
+    set b [file norm /]
+    
+    if {![string equal $a $b]} {
+        set res "Paths should be equal: $a , $b"
+    } else {
+        set res "ok"
+    }
+} {ok}
+test filesystem-1.48 {file normalisation .. beyond root (Bug 1379287)} {
+    set a [file norm /../]
+    set b [file norm /]
+    
+    if {![string equal $a $b]} {
+        set res "Paths should be equal: $a , $b"
+    } else {
+        set res "ok"
+    }
+} {ok}
+test filesystem-1.49 {file normalisation .. beyond root (Bug 1379287)} {
+    set a [file norm /.]
+    set b [file norm /]
+    
+    if {![string equal $a $b]} {
+        set res "Paths should be equal: $a , $b"
+    } else {
+        set res "ok"
+    }
+} {ok}
+test filesystem-1.50 {file normalisation .. beyond root (Bug 1379287)} {
+    set a [file norm /./]
+    set b [file norm /]
+    
+    if {![string equal $a $b]} {
+        set res "Paths should be equal: $a , $b"
+    } else {
+        set res "ok"
+    }
+} {ok}
 
 test filesystem-2.0 {new native path} {unix} {
    foreach f [lsort [glob -nocomplain /usr/bin/c*]] {