395
396
397
398
399
400
401
402
403
404
405
406
407
408
|
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
cd $old
if {[string index $res end] eq "/"} {
set res "Bad normalized path: $res"
} else {
set res "ok"
}
} {ok}
test filesystem-1.40 {file normalisation with repeated separators} {
set a [file norm foo////bar]
set b [file norm foo/bar]
if {![string equal $a $b]} {
set res "Paths should be equal: $a , $b"
} else {
set res "ok"
}
} {ok}
test filesystem-1.41 {file normalisation with repeated separators} {winOnly} {
set a [file norm foo\\\\\\bar]
set b [file norm foo/bar]
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} {unixOnly} {
foreach f [lsort [glob -nocomplain /usr/bin/c*]] {
catch {file readlink $f}
}
# If we reach here we've succeeded. We used to crash above.
expr 1
|