[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/backcompat.test

 # 2010 August 19
 #
 # 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 45 matching lines @@
   proc sql2 sql { code2 [list db eval $sql] }
 
   code1 { sqlite3 db test.db }
   code2 { sqlite3 db test.db }
 
   foreach c {code1 code2} {
     $c {
       set v [split [db version] .]
       if {[llength $v]==3} {lappend v 0}
       set ::sqlite_libversion [format \
-        "%d%.2d%.2d%2d" [lindex $v 0] [lindex $v 1] [lindex $v 2] [lindex $v 3]
+        "%d%.2d%.2d%.2d" [lindex $v 0] [lindex $v 1] [lindex $v 2] [lindex $v 3]
       ]
     }
   }
 
   uplevel $script
 
   catch { code1 { db close } }
   catch { code2 { db close } }
   catch { close $::bc_chan2 }
   catch { close $::bc_chan1 }
 
 
 }
 
 array set ::incompatible [list]
 proc do_allbackcompat_test {script} {
 
   foreach bin $::BC(binaries) {
     set nErr [set_test_counter errors]
     foreach dir {0 1} {
 
-      set bintag [string map {testfixture {}} $bin]
+      set bintag $bin
+      regsub {.*testfixture\.} $bintag {} bintag
       set bintag [string map {\.exe {}} $bintag]
       if {$bintag == ""} {set bintag self}
       set ::bcname ".$bintag.$dir."
 
       rename do_test _do_test
       proc do_test {nm sql res} {
         set nm [regsub {\.} $nm $::bcname]
         uplevel [list _do_test $nm $sql $res]
       }
 
@@ skipping 314 matching lines @@
           INSERT INTO t2 SELECT words FROM t1;
           INSERT INTO t2 SELECT words FROM t1;
           INSERT INTO t2 SELECT words FROM t1;
           SELECT level, group_concat(idx, ' ') FROM t2_segdir GROUP BY level;
         }
       } {0 {0 1 2 3 4 5}}
 
       if {[code1 { set ::sqlite_libversion }] >=3071200 
        && [code2 { set ::sqlite_libversion }] >=3071200 
       } {
+        if {[code1 { set ::sqlite_libversion }]<3120000} {
+          set res {0 {0 1} 1 0}
+        } else {
+          set res {1 0}
+        }
+
         do_test backcompat-3.9 {
           sql1 { INSERT INTO t2(t2) VALUES('merge=100,4'); }
           sql2 { INSERT INTO t2(t2) VALUES('merge=100,4'); }
           sql1 { INSERT INTO t2(t2) VALUES('merge=100,4'); }
           sql2 { INSERT INTO t2(t2) VALUES('merge=2500,4'); }
           sql2 {
             SELECT level, group_concat(idx, ' ') FROM t2_segdir GROUP BY level;
           }
-        } {0 {0 1} 1 0}
+        } $res
 
         do_test backcompat-3.10 {
           sql1 { INSERT INTO t2(t2) VALUES('integrity-check') }
           sql2 { INSERT INTO t2(t2) VALUES('integrity-check') }
         } {}
       }
     }
   }
 }
 
@@ skipping 66 matching lines @@
   
       foreach {n q} $::queries {
         do_test backcompat-4.6.$n [list sql1 $q] [sql2 $q]
       }
   
     }
   }
 }
 
 finish_test