SQLite

Check-in [73e3355004]
Login

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 73e3355004b8b7ce2e1bb937725f429795528a4f
User & Date: drh 2016-01-04 04:41:13.895
Context
2016-01-04
04:44
Improved comment on the vtabH-3.1 test. (check-in: 22abe08038 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: 73e3355004 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: d655a665ac user: drh tags: trunk)
Changes
Side-by-Side Diff Ignore Whitespace Patch
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
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
      if {![regexp {\$} $p]} {lappend res $p}
    } else {
      lappend res "/$p"
    }
  }
  do_execsql_test 3.1 {
    SELECT path FROM fstree LIMIT 5;
    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] {