SQLite

Check-in [e4aeaa2bc7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Adapt the special case of '$' in item names for test 'vtabH-3.1' as well.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e4aeaa2bc73b57f1ef134cc4f54e2a652a20b5c9
User & Date: mistachkin 2016-08-26 02:10:50.317
Context
2016-09-07
19:31
Merge selected test fixes from trunk. (check-in: 71866b367f user: mistachkin tags: branch-3.14)
2016-08-26
04:32
Rename a test procedure in 'speed3.test' to avoid a name collision. (check-in: 84de17bc68 user: mistachkin tags: trunk)
02:10
Adapt the special case of '$' in item names for test 'vtabH-3.1' as well. (check-in: e4aeaa2bc7 user: mistachkin tags: trunk)
01:47
Make the test 'vtabH-3.1' work when there are less than 5 top-level items. (check-in: 328f79bb57 user: mistachkin tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/vtabH.test.
︙︙
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167

  #
  set res [list]
  set root_files [list_root_files]
  set num_root_files [llength $root_files]
  set lim_root_files [expr {$num_root_files > 5 ? 5 : $num_root_files}]
  foreach p [lrange $root_files 0 [expr {$lim_root_files - 1}]] {
    if {$::tcl_platform(platform) eq "windows"} {
      if {![regexp {\$} $p]} {lappend res $p}
    } else {
      lappend res "/$p"
    }
  }
  do_execsql_test 3.1 [subst {
    SELECT path FROM fstree WHERE path NOT GLOB '*\$*' LIMIT $lim_root_files;
  }] $res








|








153
154
155
156
157
158
159
160
161
162
163
164
165
166
167

  #
  set res [list]
  set root_files [list_root_files]
  set num_root_files [llength $root_files]
  set lim_root_files [expr {$num_root_files > 5 ? 5 : $num_root_files}]
  foreach p [lrange $root_files 0 [expr {$lim_root_files - 1}]] {
    if {$::tcl_platform(platform) eq "windows"} {
      if {[regexp {\$} $p]} {incr lim_root_files -1} else {lappend res $p}
    } else {
      lappend res "/$p"
    }
  }
  do_execsql_test 3.1 [subst {
    SELECT path FROM fstree WHERE path NOT GLOB '*\$*' LIMIT $lim_root_files;
  }] $res
︙︙