diff --git a/manifest b/manifest index 0b76c88dc2..f7030f8aaf 100644 --- a/manifest +++ b/manifest @@ -1,5 +1,5 @@ -C Merge\sand\smanually\sresolve\stesting\supdates\sfrom\strunk. -D 2012-03-08T20:22:42.680 +C Merge\stest\scurrent\sdirectory\svalue\sfix\sfrom\strunk\sand\sfix\suri\stests. +D 2012-03-08T20:39:08.983 F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f F Makefile.in 2f37e468503dbe79d35c9f6dffcf3fae1ae9ec20 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23 @@ -719,7 +719,7 @@ F test/tclsqlite.test 1597d353308531527583481d14d9da52ea8ed0af F test/tempdb.test 19d0f66e2e3eeffd68661a11c83ba5e6ace9128c F test/temptable.test 51edd31c65ed1560dd600b1796e8325df96318e2 F test/temptrigger.test 26670ed7a39cf2296a7f0a9e0a1d7bdb7abe936d -F test/tester.tcl b443ad34242882018924a70fc87fca6f4c64953f +F test/tester.tcl d06382066250b1c68b199d3656d090db5f9a9a16 F test/thread001.test 7cc2ce08f9cde95964736d11e91f9ab610f82f91 F test/thread002.test e630504f8a06c00bf8bbe68528774dd96aeb2e58 F test/thread003.test ee4c9efc3b86a6a2767516a37bd64251272560a7 @@ -880,7 +880,7 @@ F test/unique.test 083c7fff74695bcc27a71d75699deba3595bc9c2 F test/unixexcl.test a9870e46cc6f8390a494513d4f2bf55b5a8b3e46 F test/unordered.test f53095cee37851bf30130fa1bf299a8845e837bb F test/update.test 8bc86fd7ef1a00014f76dc6a6a7c974df4aef172 -F test/uri.test c23abcb4c4c762b2a57f2d330ede9522de081835 +F test/uri.test 63e03df051620a18f794b4f4adcdefb3c23b6751 F test/utf16align.test 54cd35a27c005a9b6e7815d887718780b6a462ae F test/vacuum.test ce91c39f7f91a4273bf620efad21086b5aa6ef1d F test/vacuum2.test af432e6e3bfc0ea20a80cb86a03c7d9876d38324 @@ -992,7 +992,7 @@ F tool/tostr.awk e75472c2f98dd76e06b8c9c1367f4ab07e122d06 F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f F tool/warnings-clang.sh 9f406d66e750e8ac031c63a9ef3248aaa347ef2a F tool/warnings.sh fbc018d67fd7395f440c28f33ef0f94420226381 -P 27d6942ca270d6e724ffd230ed58a8683d67dfa4 82bcd7ec1531f6d71c079578434c58d3ce46a1de -R caba4c03942074fd6664aa09d852cc9e +P 5eecdb44dd809e91002b8ecf59ada72f4b56549a efee39e64bd95c284220fdb0ae8ee6c1847fadab +R 4259e5e6648b2026d8327fd947148d80 U mistachkin -Z 3683990d956f3e16ca5627ca9508a920 +Z 18b9a0728cfebb78df49400835a7c03c diff --git a/manifest.uuid b/manifest.uuid index ffd1242f8b..aa5d7a410d 100644 --- a/manifest.uuid +++ b/manifest.uuid @@ -1 +1 @@ -5eecdb44dd809e91002b8ecf59ada72f4b56549a \ No newline at end of file +88963c33c19a051280f7f31bdc1b322d6837cf43 \ No newline at end of file diff --git a/test/tester.tcl b/test/tester.tcl index 4e7526cef0..c796f4f11e 100644 --- a/test/tester.tcl +++ b/test/tester.tcl @@ -157,7 +157,13 @@ proc getFileRetryDelay {} { # proc get_pwd {} { if {$::tcl_platform(platform) eq "windows"} { - return [string trim [exec -- $::env(ComSpec) /c echo %CD%]] + # + # NOTE: Cannot use [file normalize] here because it would alter the + # case of the result to what Tcl considers canonical, which would + # defeat the purpose of this procedure. + # + return [string map [list \\ /] \ + [string trim [exec -- $::env(ComSpec) /c echo %CD%]]] } else { return [pwd] } diff --git a/test/uri.test b/test/uri.test index e6ce8a4ad8..af1ad67250 100644 --- a/test/uri.test +++ b/test/uri.test @@ -56,10 +56,21 @@ foreach {tn uri file} { ifcapable !curdir { if {$tn==3} break } if {$tcl_platform(platform)=="windows"} { + # + # NOTE: Due to limits on legal characters for file names imposed by + # Windows, we must skip the final two tests here (i.e. the + # question mark is illegal in a file name on Windows). + # if {$tn>14} break - } - set uri [string map [list PWD/ [test_pwd /]] $uri] + # + # NOTE: On Windows, we need to account for the fact that the current + # directory does not start with a forward slash. + # + set uri [string map [list PWD/ /[test_pwd /]] $uri] + } else { + set uri [string map [list PWD/ [test_pwd /]] $uri] + } if {[file isdir $file]} {error "$file is a directory"} forcedelete $file