Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Adjust the vtabH.test module to ignore files in the root directory of Windows machines that contain the "$" character. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
73e3355004b8b7ce2e1bb937725f4297 |
| User & Date: | drh 2016-01-04 04:41:13 |
Context
|
2016-01-04
| ||
| 04:44 | Improved comment on the vtabH-3.1 test. check-in: 22abe080 user: drh tags: trunk | |
| 04:41 | Adjust the vtabH.test module to ignore files in the root directory of Windows machines that contain the "$" character. check-in: 73e33550 user: drh tags: trunk | |
| 04:28 | Limit the length of sqlite3_mprintf() output to 2^30 bytes, even if SQLITE_MAX_LENGTH is set larger at compile-time. check-in: d655a665 user: drh tags: trunk | |
Changes
Changes to test/vtabH.test.
143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 |
}
# Read the first 5 entries from the root directory.
#
set res [list]
foreach p [lrange [list_root_files] 0 4] {
if {$::tcl_platform(platform) eq "windows"} {
lappend res $p
} else {
lappend res "/$p"
}
}
do_execsql_test 3.1 {
SELECT path FROM fstree LIMIT 5;
} $res
# Read all entries in the current directory.
#
proc contents {pattern} {
set res [list]
foreach f [list_files $pattern] {
|
| | |
143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 |
}
# Read the first 5 entries from the root directory.
#
set res [list]
foreach p [lrange [list_root_files] 0 4] {
if {$::tcl_platform(platform) eq "windows"} {
if {![regexp {\$} $p]} {lappend res $p}
} else {
lappend res "/$p"
}
}
do_execsql_test 3.1 {
SELECT path FROM fstree WHERE path NOT GLOB '*$*' LIMIT 5;
} $res
# Read all entries in the current directory.
#
proc contents {pattern} {
set res [list]
foreach f [list_files $pattern] {
|