Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix typo in previous tester.tcl commit. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | c2e5faca144d2c25aada2a77b4ddefa5 |
User & Date: | shaneh 2011-06-21 19:39:59 |
Context
2011-06-22
| ||
10:37 | Modify the implementation of the test code in test_vfs.c so that test VFS objects may be invoked recursively. check-in: 065e5a5e user: dan tags: trunk | |
2011-06-21
| ||
19:39 | Fix typo in previous tester.tcl commit. check-in: c2e5faca user: shaneh tags: trunk | |
19:38 | Update filepath_normalize for unix. check-in: 30dd4f88 user: shaneh tags: trunk | |
Changes
Changes to test/tester.tcl.
352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 |
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} {
|
| |
352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 |
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} {
|