Update filepath_normalize for unix.

FossilOrigin-Name: 30dd4f887989354b5d01cc80bd9c4bd3528d3ae1
This commit is contained in:
shaneh 2011-06-21 19:38:16 +00:00
parent 5550517e2b
commit c489640779
3 changed files with 10 additions and 8 deletions

View File

@ -1,5 +1,5 @@
C Update\sa\sfew\sof\sthe\suri\stests\sto\swork\son\sWindows. C Update\sfilepath_normalize\sfor\sunix.
D 2011-06-21T19:30:19.621 D 2011-06-21T19:38:16.805
F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
F Makefile.in c1d7a7f4fd8da6b1815032efca950e3d5125407e F Makefile.in c1d7a7f4fd8da6b1815032efca950e3d5125407e
F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@ -695,7 +695,7 @@ F test/tclsqlite.test 8c154101e704170c2be10f137a5499ac2c6da8d3
F test/tempdb.test 19d0f66e2e3eeffd68661a11c83ba5e6ace9128c F test/tempdb.test 19d0f66e2e3eeffd68661a11c83ba5e6ace9128c
F test/temptable.test f42121a0d29a62f00f93274464164177ab1cc24a F test/temptable.test f42121a0d29a62f00f93274464164177ab1cc24a
F test/temptrigger.test b0273db072ce5f37cf19140ceb1f0d524bbe9f05 F test/temptrigger.test b0273db072ce5f37cf19140ceb1f0d524bbe9f05
F test/tester.tcl 7c02f342a92aa161d13ab5241413e341039c14d7 F test/tester.tcl 6be56c3d428d37b1d9281adc4c2b81e135c07773
F test/thread001.test a3e6a7254d1cb057836cb3145b60c10bf5b7e60f F test/thread001.test a3e6a7254d1cb057836cb3145b60c10bf5b7e60f
F test/thread002.test afd20095e6e845b405df4f2c920cb93301ca69db F test/thread002.test afd20095e6e845b405df4f2c920cb93301ca69db
F test/thread003.test b824d4f52b870ae39fc5bae4d8070eca73085dca F test/thread003.test b824d4f52b870ae39fc5bae4d8070eca73085dca
@ -948,7 +948,7 @@ F tool/symbols.sh bc2a3709940d47c8ac8e0a1fdf17ec801f015a00
F tool/tostr.awk 11760e1b94a5d3dcd42378f3cc18544c06cfa576 F tool/tostr.awk 11760e1b94a5d3dcd42378f3cc18544c06cfa576
F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
F tool/warnings.sh 347d974d143cf132f953b565fbc03026f19fcb4d F tool/warnings.sh 347d974d143cf132f953b565fbc03026f19fcb4d
P 9eac4a6bbe111d951ad23395ba82c868473c5b9b P a2a0cd4aa4a6723a849bbba590c22fd065fab55e
R cb165167c8ffaaf3fa41940019e90c06 R 8d007d7bee1018ae9fbc8ca3a0089039
U shaneh U shaneh
Z 2a57b2d9aba31bd124d18eb8ab4bf292 Z 6fcb3eb81cefe51f562056bbdbe8ba89

View File

@ -1 +1 @@
a2a0cd4aa4a6723a849bbba590c22fd065fab55e 30dd4f887989354b5d01cc80bd9c4bd3528d3ae1

View File

@ -356,9 +356,11 @@ proc do_test {name cmd expected} {
proc filepath_normalize {p} { proc filepath_normalize {p} {
# test cases should be written to assume "unix"-like file paths # 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*2 as a hack to remove any unneeded {} after the string map
lreverse [lreverse [string map {\\ /} [regsub -nocase -all {[a-z]:[/\\]+} $p {/}]]] lreverse [lreverse [string map {\\ /} [regsub -nocase -all {[a-z]:[/\\]+} $p {/}]]]
} {
set p
} }
} }
proc do_filepath_test {name cmd expected} { proc do_filepath_test {name cmd expected} {