/ Check-in [e4aeaa2b]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

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 | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e4aeaa2bc73b57f1ef134cc4f54e2a652a20b5c9
User & Date: mistachkin 2016-08-26 02:10:50
Context
2016-09-07
19:31
Merge selected test fixes from trunk. check-in: 71866b36 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: 84de17bc user: mistachkin tags: trunk
02:10
Adapt the special case of '$' in item names for test 'vtabH-3.1' as well. check-in: e4aeaa2b user: mistachkin tags: trunk
01:47
Make the test 'vtabH-3.1' work when there are less than 5 top-level items. check-in: 328f79bb user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/vtabH.test.

   153    153     #
   154    154     set res [list]
   155    155     set root_files [list_root_files]
   156    156     set num_root_files [llength $root_files]
   157    157     set lim_root_files [expr {$num_root_files > 5 ? 5 : $num_root_files}]
   158    158     foreach p [lrange $root_files 0 [expr {$lim_root_files - 1}]] {
   159    159       if {$::tcl_platform(platform) eq "windows"} {
   160         -      if {![regexp {\$} $p]} {lappend res $p}
          160  +      if {[regexp {\$} $p]} {incr lim_root_files -1} else {lappend res $p}
   161    161       } else {
   162    162         lappend res "/$p"
   163    163       }
   164    164     }
   165    165     do_execsql_test 3.1 [subst {
   166    166       SELECT path FROM fstree WHERE path NOT GLOB '*\$*' LIMIT $lim_root_files;
   167    167     }] $res