/ Check-in [73e33550]
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 | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 73e3355004b8b7ce2e1bb937725f429795528a4f
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
Hide Diffs Side-by-Side Diffs Show Whitespace Changes Patch

Changes to test/vtabH.test.

   143    143     }
   144    144   
   145    145     # Read the first 5 entries from the root directory.
   146    146     #
   147    147     set res [list]
   148    148     foreach p [lrange [list_root_files] 0 4] {
   149    149       if {$::tcl_platform(platform) eq "windows"} {
   150         -      lappend res $p
          150  +      if {![regexp {\$} $p]} {lappend res $p}
   151    151       } else {
   152    152         lappend res "/$p"
   153    153       }
   154    154     }
   155    155     do_execsql_test 3.1 {
   156         -    SELECT path FROM fstree LIMIT 5;
          156  +    SELECT path FROM fstree WHERE path NOT GLOB '*$*' LIMIT 5;
   157    157     } $res
   158    158     
   159    159     # Read all entries in the current directory.
   160    160     #
   161    161     proc contents {pattern} {
   162    162       set res [list]
   163    163       foreach f [list_files $pattern] {