Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Update filepath_normalize for unix. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
30dd4f887989354b5d01cc80bd9c4bd3 |
User & Date: | shaneh 2011-06-21 19:38:16.805 |
Context
2011-06-21
| ||
19:39 | Fix typo in previous tester.tcl commit. (check-in: c2e5faca14 user: shaneh tags: trunk) | |
19:38 | Update filepath_normalize for unix. (check-in: 30dd4f8879 user: shaneh tags: trunk) | |
19:30 | Update a few of the uri tests to work on Windows. (check-in: a2a0cd4aa4 user: shaneh tags: trunk) | |
Changes
Changes to test/tester.tcl.
︙ | ︙ | |||
352 353 354 355 356 357 358 | puts " Ok" } flush stdout } proc filepath_normalize {p} { # test cases should be written to assume "unix"-like file paths | | > > | 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 | puts " Ok" } flush stdout } proc filepath_normalize {p} { # test cases should be written to assume "unix"-like file paths if {$::tcl_platform(platform)=="unix"} { # lreverse*2 as a hack to remove any unneeded {} after the string map lreverse [lreverse [string map {\\ /} [regsub -nocase -all {[a-z]:[/\\]+} $p {/}]]] } { set p } } proc do_filepath_test {name cmd expected} { uplevel [list do_test $name [ subst -nocommands { filepath_normalize [ $cmd ] } ] [filepath_normalize $expected]] } |
︙ | ︙ |