database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-27 20:41:58 +03:00
Code Activity

Fix typo in previous tester.tcl commit.

Browse Source 
FossilOrigin-Name: c2e5faca144d2c25aada2a77b4ddefa5ca6ea925
This commit is contained in:
shaneh
2011-06-21 19:39:59 +00:00
parent c489640779
commit 285a18fa45
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
test/tester.tcl
View File

@ -356,7 +356,7 @@ proc do_test {name cmd expected} {
proc filepath_normalize {p} {
# test cases should be written to assume "unix"-like file paths
if {$::tcl_platform(platform)=="unix"} {
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 {/}]]]
} {