[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/vtabH.test

 # 2015 Nov 24
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 50 matching lines @@
 set x1 aback
 set x2 abaft
 set x3 abandon
 set x4 abandonint
 set x5 babble
 set x6 baboon
 set x7 backbone
 set x8 backarrow
 set x9 castle
 
-db func glob gfunc
+db func glob -argcount 2 gfunc
 proc gfunc {a b} {
   incr ::gfunc
   return 1
 }
 
-db func like lfunc
+db func like -argcount 2 lfunc
 proc lfunc {a b} {
   incr ::gfunc 100
   return 1
 }
 
-db func regexp rfunc
+db func regexp -argcount 2 rfunc
 proc rfunc {a b} {
   incr ::gfunc 10000
   return 1
 }
 
 foreach ::tclvar_set_omit {0 1} {
   foreach {tn expr res cnt} {
     1 {value GLOB 'aban*'} {x3 abandon x4 abandonint} 2
     2 {value LIKE '%ac%'}  {x1 aback x7 backbone x8 backarrow} 300
     3 {value REGEXP '^......$'}  {x5 babble x6 baboon x9 castle} 30000
   } {
     db cache flush
     set ::gfunc 0
     if {$::tclvar_set_omit} {set cnt 0}
 
     do_test 2.$tclvar_set_omit.$tn.1 {
       execsql "SELECT name, value FROM vars WHERE name MATCH 'x*' AND $expr"
     } $res
 
     do_test 2.$tclvar_set_omit.$tn.2 {
       set ::gfunc
     } $cnt
   }
 }
 
 #-------------------------------------------------------------------------
 #
-if {1} {
+if {$tcl_platform(platform)=="windows"} {
+  set drive [string range [pwd] 0 1]
+  set ::env(fstreeDrive) $drive
+}
+if {$tcl_platform(platform)!="windows" || \
+    [regexp -nocase -- {^[A-Z]:} $drive]} {
   reset_db
   register_fs_module db
   do_execsql_test 3.0 {
     SELECT name FROM fsdir WHERE dir = '.' AND name = 'test.db';
     SELECT name FROM fsdir WHERE dir = '.' AND name = '.'
   } {test.db .}
 
+  proc sort_files { names {nocase false} } {
+    if {$nocase && $::tcl_platform(platform) eq "windows"} {
+      return [lsort -nocase $names]
+    } else {
+      return [lsort $names]
+    }
+  }
+
   proc list_root_files {} {
     if {$::tcl_platform(platform) eq "windows"} {
-      set res [list]
-      foreach name [glob -directory $::env(SystemDrive)/ -- *] {
+      set res [list]; set dir $::env(fstreeDrive)/; set names [list]
+      eval lappend names [glob -nocomplain -directory $dir -- *]
+      foreach name $names {
         if {[string index [file tail $name] 0] eq "."} continue
+        if {[file attributes $name -hidden]} continue
+        if {[file attributes $name -system]} continue
         lappend res $name
       }
-      return $res
+      return [sort_files $res true]
     } else {
-      return [string map {/ {}} [glob /*]]
+      return [sort_files [string map {/ {}} [glob -nocomplain -- /*]]]
     }
   }
 
   proc list_files { pattern } {
     if {$::tcl_platform(platform) eq "windows"} {
-      set res [list]
-      foreach name [glob -nocomplain $pattern] {
+      set res [list]; set names [list]
+      eval lappend names [glob -nocomplain -- $pattern]
+      foreach name $names {
         if {[string index [file tail $name] 0] eq "."} continue
+        if {[file attributes $name -hidden]} continue
+        if {[file attributes $name -system]} continue
         lappend res $name
       }
-      return $res
+      return [sort_files $res]
     } else {
-      return [glob -nocomplain $pattern]
+      return [sort_files [glob -nocomplain -- $pattern]]
     }
   }
 
+  # Read the first 5 entries from the root directory.  Except, ignore
+  # files that contain the "$" character in their names as these are
+  # special files on some Windows platforms.
+  #
+  set res [list]
+  set root_files [list_root_files]
+  foreach p $root_files {
+    if {$::tcl_platform(platform) eq "windows"} {
+      if {![regexp {\$} $p]} {lappend res $p}
+    } else {
+      lappend res "/$p"
+    }
+  }
+  set num_root_files [llength $root_files]
+  do_test 3.1 {
+    sort_files [execsql {
+      SELECT path FROM fstree WHERE path NOT GLOB '*\$*' LIMIT $num_root_files;
+    }] true
+  } [sort_files $res true]
+
   # Read all entries in the current directory.
   #
   proc contents {pattern} {
     set res [list]
     foreach f [list_files $pattern] {
       lappend res $f
       if {[file isdir $f]} {
         set res [concat $res [contents "$f/*"]]
       }
     }
     set res
   }
   set pwd "[pwd]/*"
   set res [contents $pwd]
   do_execsql_test 3.2 {
     SELECT path FROM fstree WHERE path GLOB $pwd ORDER BY 1
-  } [lsort $res]
+  } [sort_files $res]
 
   # Add some sub-directories and files to the current directory.
   #
   do_test 3.3 {
     catch { file delete -force subdir }
     foreach {path sz} {
       subdir/x1.txt     143
       subdir/x2.txt     153
     } {
       set dir [file dirname $path]
@@ skipping 21 matching lines @@
     SELECT sum(size) FROM fstree WHERE path LIKE $pwd || '/subdir/%'
   } 296
   do_execsql_test 3.8 {
     SELECT size FROM fstree WHERE path = $pwd || '/subdir/x1.txt'
   } 143
 
 }
 
 
 finish_test