Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | On Windows, make sure the returned test current directory value does not contain any backslashes. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
efee39e64bd95c284220fdb0ae8ee6c1 |
| User & Date: | mistachkin 2012-03-08 20:28:31 |
Context
|
2012-03-09
| ||
| 22:02 | Candidate fix for the optimizer problem described in ticket [b7c8682cc17f3] which can causes a LEFT JOIN to be changed into a INNER JOIN if there are OR terms in the WHERE clause. check-in: 0dc4cb93 user: drh tags: trunk | |
|
2012-03-08
| ||
| 20:39 | Merge test current directory value fix from trunk and fix uri tests. check-in: 88963c33 user: mistachkin tags: winrt | |
| 20:28 | On Windows, make sure the returned test current directory value does not contain any backslashes. check-in: efee39e6 user: mistachkin tags: trunk | |
| 20:00 | On Windows, make sure the current directory value used by the test suite is 'normalized' to what the parent command shell sees. Also, clean the test directories used by the quota2.test file. check-in: 82bcd7ec user: mistachkin tags: trunk | |
Changes
Changes to test/tester.tcl.
151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 |
# Return the string representing the name of the current directory. On
# Windows, the result is "normalized" to whatever our parent command shell
# is using to prevent case-mismatch issues.
#
proc get_pwd {} {
if {$::tcl_platform(platform) eq "windows"} {
return [string trim [exec -- $::env(ComSpec) /c echo %CD%]]
} else {
return [pwd]
}
}
# Copy file $from into $to. This is used because some versions of
# TCL for windows (notably the 8.4.1 binary package shipped with the
|
> > > > > > | |
151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 |
# Return the string representing the name of the current directory. On
# Windows, the result is "normalized" to whatever our parent command shell
# is using to prevent case-mismatch issues.
#
proc get_pwd {} {
if {$::tcl_platform(platform) eq "windows"} {
#
# 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]
}
}
# Copy file $from into $to. This is used because some versions of
# TCL for windows (notably the 8.4.1 binary package shipped with the
|